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The  purpose  of  this  thesis  is  to: 
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b.  Improve  the  article  submission  and  review  process, 

c.  Outline  a  target  information  system, 

d.  Implement  a  portion  of  the  target  system. 

Two  major  portions  of  the  target  system  are  implemented  using  an  IBM  compatible 
PC:  1)  the  ability  for  authors  to  submit  abstracts  and  summaries  via  the  Internet,  2)  to 
allow  conference  administrators  to  manage  the  database  via  the  Internet.  Dynamic 
World  Wide  Web  pages  are  created  using  Borland  Delphi  as  the  programming  base, 
O'Rielly's  WebSite  as  the  web  server,  and  two  Common  Gateway  Interface  elements  for 
Delphi  recently  developed  by  Ann  Lynnworth  of  HREF  Tools  Corp.  The  portions 
implemented  lay  the  foundation  for  a  system  that  could  revolutionize  the  way 
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I.  INTRODUCTION 

The  Asilomar  Conference  on  Signals,  Systems  and  Computers  is  a  technical 
conference  dealing  in  signal  and  image  processing,  communications,  sensor  systems,  and 
computer  hardware  and  software.  Sponsored  by  the  Naval  Postgraduate  School  and  San 
Jose  State  University,  in  cooperation  with  the  IEEE  Signal  Processing  Society,  the 
conference  is  held  annually  at  the  Asilomar  Conference  Facility  in  Pacific  Grove, 
California. 

A.  OBJECTIVES 

The  objectives  of  this  Thesis  are  to: 

1 )  Analyze  the  processes  involved  in  Asilomar  Conference  on  Signals, 
Systems,  &  Computers, 

2)  Improve  the  article  submission  and  review  process, 

3)  Outline  a  target  information  system, 

4)  Implement  a  portion  of  the  target  system. 

B.  OUTLINE 

Section  II  covers  background  material  such  as,  a  description  of  the  Asilomar 
Conference  and  its  organization,  the  submission  process  for  authors  submitting  papers, 
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and  the  article  review  and  acceptance  process.  The  system  development  process  is 
explained  in  Section  m.  The  following  steps  were  used  in  our  development 
methodology: 

1 )  Develop  a  baseline  assessment  -  what  exists  now,  how  is  it  being  used, 
and  what  users  would  like  to  see  improved. 

2)  Define  the  target  system  -  compile  the  information  gathered  during  the 
baseline  assessment  and  develop  a  system  that  improves  the  process  for 
all  concerned. 

3)  Select  a  migration  path  -  decide  how  to  move  from  the  existing  system  to 
the  target. 

Section  IV  discusses  the  implementation  of  the  target  system.  This  section  also 
includes  system  flow  diagrams  and  a  description  of  every  program  element  that  comprise 
the  target  system.  Conclusions  and  recommendations  for  further  enhancements  to  the 
system  are  covered  in  Section  V. 


H.  BACKGROUND 

Three  views  will  be  presented  to  develop  a  detailed  understanding  of  the  present 
conference  system:  1)  an  outline  of  the  procedures  required  to  conduct  a  conference;  2)  a 
description  of  the  structural  organization  of  the  different  committees  which  guide  the 
conference;  and  3)  an  overview  of  the  processes  from  the  participants'  perspective. 


A.         CONFERENCE  OVERVIEW 

Approximately  one  year  before  the  conference  convening  date,  the  Conference 
publishes  a  "call  for  papers"  to  solicit  articles  for  presentation.  Interested  individuals 
submit  an  abstract  and  summary  of  the  articles  they  propose  to  present.  A  few  months 
before  the  conference  convenes,  the  collected  submissions  are  reviewed  for  acceptance. 
Selected  article  abstracts  are  published  in  a  "Final  Program  and  Abstract  Catalog."  The 
catalog  is  distributed  to  potential  attendees  to  generate  interest  in  the  conference  and 
provide  an  idea  of  the  topics  to  be  covered. 

The  actual  conference  takes  place  over  a  three-day  period,  with  four  half-days  of 
presentations.  Presentations  are  organized  by  topic  area  into  sessions,  with  eight  sessions 
going  on  simultaneously  during  each  half-day.  Each  session  will  have  6-8  oral 
presentations  or  up  to  16  poster  presentations.  If  the  number  of  presentations  for  a  given 
topic  is  insufficient  to  fill  an  entire  morning/afternoon,  the  session  may  be  split  into  two 


half-sessions.  On  average,  about  seventy  presentations  are  given  each  half-day.  Because 
eight  sessions  run  concurrently,  attendees  are  not  able  to  hear  every  article  presented. 
Following  the  conference,  each  registered  participant  is  mailed  a  set  of  conference 
proceedings  containing  articles  presented  at  the  conference. 


B.         STRUCTURAL  ORGANIZATION  OF  THE  CONFERENCE 

The  conference  is  guided  by  two  volunteer  committees;  1 )  the  conference 
committee  and  2)  the  steering  committee.  Both  are  staffed  by  technical  experts  in  the 
various  fields  of  signal  processing.  The  conference  committee  includes  the  Publicity, 
Publication,  Coordination,  and  Technical  Program  Chairpersons  (Chairs).  The  Technical 
Program  Chair  heads  the  Technical  Program  Committee  which  has  final  responsibility 
for  developing  the  technical  program  and  publishing  the  Proceedings.  The  Technical 
Program  Committee  structure  is  shown  in  Figure  2-1.  Principal  tasks  of  the  Technical 
Program  Chair,  responsible  for  the  technical  content  of  the  conference,  include 
determining  which  topics  are  to  be  included  in  the  "Call  for  Papers"  and  presiding  over 
the  review  process.  Responsibility  for  specific  topic  areas  is  delegated  down  to  6-7 
Technical  Area  Chairs  (TACs).  Their  primary  task  is  to  review  submitted  articles  within 
their  area  and  select  those  best  suited  for  presentation.  Each  TAC  is  assisted  by  several 
Session  Chairs  who  coordinate  and  schedule  the  individual  sessions.  Sessions  Chairs 
invite  3-4  papers  on  topics  which  they  feel  are  of  particular  interest.  These  "invited" 


papers  are  automatically  selected  for  presentation  and  are  not  subject  to  review. 

The  Steering  Committee's  role  is  to  guide  the  long  term  goals  of  the  conference. 
Its  main  contribution  is  to  nominate  the  General  Chair  and  the  other  conference 
committee  Chairs.  However,  the  Steering  Committee  is  not  directly  involved  with  the 
technical  program  setup,  therefore  it  is  not  discussed  further  in  this  document. 


C.    PROCEDURAL  FLOW  OF  THE  CONFERENCE 

Participants  in  the  Conference  can  be  divided  into  four  roles:  attendees,  authors, 
organizers,  and  reviewers.  Organizers  conduct  the  required  administrative  functions, 
reviewers  select  articles  for  presentation,  authors  write  articles  and  make  presentations, 
and  attendees  attend  the  conference.  Each  of  these  roles  is  accompanied  by  a  distinct  set 
of  procedures  that  must  be  completed.  A  particular  individual  may  fill  more  than  one 
role. 


1.         Attendees 

Attendees  begin  their  participation  by  gathering  information  about  the 
upcoming  conference.  Information  is  obtained  on-line  via  an  established  World  Wide 
Web  (WWW)  homepage  or  off-line  via  an  established  mailing  list.  Registration  is  done 
manually  via  the  U.  S.  Postal  Service,  sometimes  referred  to  as  snail  mail  (s-mail). 


Bank  checks  and  cash  are  the  only  form  of  payment  which  the  conference  currently 
accepts.  Once  registered,  attendees  will  receive  an  "Abstract  Catalog"  which  describes 
the  articles  to  be  presented.  They  may  peruse  the  catalog  to  decide  which  presentations 
to  attend.  Attendees  receive  a  copy  of  the  conference  proceedings  about  two  months 
after  the  conference. 


2.         Authors 

An  author  is  someone  who  wishes  to  present  recent  research  results. 
Information  on  topics  and  the  submission  process  are  obtained  from  the  "Call  for 
Papers."  Only  a  title,  abstract,  and  extended  summary  are  required  to  have  an  article 
considered  by  the  Conference  Technical  Program  Committee.  Currently,  submissions 
are  accepted  via  electronic  mail  (e-mail)  and  s-mail.  Unless  invited,  the  article's  abstract 
and  summary  are  reviewed  for  selection,  and  authors  are  notified  by  mail  regarding  the 
acceptance  or  rejection  of  their  article(s).  If  selected,  they  must  turn  in  a  complete  copy 
of  the  article  at  the  conference  to  be  used  for  publishing  in  the  conference  proceedings. 


3.         Organizers 

Organizers  consist  of  the  committee  members  and  a  single  administrator.  They 
are  responsible  for  publishing  information  on  the  WWW  homepage  and  for  sending  out 


information  to  the  mailing  list.  Registrations  and  submissions  are  collected  and  sorted. 
After  the  review  session,  the  administrator  compiles  and  sends  out  accept/reject  notices 
and  the  abstract  catalog.  After  the  conference,  proceedings  are  published  by  the  Institute 
of  Electrical  &  Electronics  Engineers  (IEEE)  Computer  Society  Press.  Abstracts  and 
summaries  (whether  accepted  or  rejected)  are  discarded  two  months  after  the  conference. 


4.  Reviewers 

The  Technical  Area  Chairs  are  responsible  for  reviewing  all  articles  submitted 
within  their  topic  areas.  All  reviews  are  done  during  a  single,  one-day  meeting. 
Abstracts  are  the  primary  basis  forjudging  articles,  but  the  extended  summaries  are 
available  if  more  information  is  sought.  Topic  areas  are  generally  defined  through 
"keywords."  No  comments,  notes,  or  other  documentation  is  maintained  on  the 
reviewer's  thoughts  or  opinions  of  the  submissions.  The  Technical  and  General  Chairs 
participate  in  the  review  and  resolve  any  disputes  that  may  arise. 


General  Chairperson 
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Technical 
Area  Chair 


Technical 
Area  Chair 


Session 
Chan- 


Session 
Chan- 


Session 
Chan- 


Session 
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Figure  2-1.  Asilomar  Conference  Organization. 


ffl.  METHODOLOGY 
A.         BASELINE  ASSESSMENT 

The  assessment  of  the  current  Conference  system  includes  a  characterization  of 
the  organization's  business  functions  and  key  processes.  Data  for  this  analysis  was 
collected  through  interviews  with  organizers  and  a  survey  of  1995  Conference  attendees. 

1.         Business  Functions 

Key  business  functions  for  the  conference  are:  1 )  attracting  attendees  and  authors; 
2)  determining  topic  areas;  3)  collecting  article  abstracts  and  summaries;  4)  reviewing 
and  selecting  articles;  and  5)  disseminating  the  article's  information.  These  functions  are 
primarily  the  responsibility  of  the  Conference  Committee.  Forces  influencing  these 
functions  are  improvements  in  technology,  trends  in  research  and  development,  and 
pressure  on  academic  faculty  to  publish. 

The  Conference  Registrar  hired  by  the  Conference  Committee  collects  the  article 
submissions.     Each  submission  consists  of  an  abstract  (100-150  words)  and  an  extended 
summary  (500-1000  words).  While  abstracts  are  limited  to  text  only,  summaries  may 
contain  graphics  and/or  complex  equations.  ASCII  text  e-mail  is  sufficient  for 
submitting  abstracts,  but  is  unable  to  handle  the  graphics/equations  in  a  summary. 
Summaries  may  be  submitted  by  either  s-mail  or  e-mail  in  plain  text  ASCII  format. 


S-mail  has  no  limits  on  content,  but  lacks  the  convenience  of  electronic  transfer, 
especially  at  the  receiving  end  where  someone  must  then  enter  it  into  the  Abstract 
Catalog.  Technical  Area  Chairs  travel  to  Monterey  to  review  and  select  articles  during  a 
one-day,  marathon  review  session.  Abstracts  and  summaries  are  reviewed  by  the 
assigned  Chair  and  the  article  is  either  accepted  or  rejected.  If  too  many  articles  are 
accepted,  the  Technical  Chair  arbitrates  a  compromise.  Not  only  is  this  expensive  ( the 
conference  pays  to  fly  everyone  in),  but  the  amount  of  time  available  is  insufficient  to 
thoroughly  review  the  submissions.  As  a  result,  article  selection  may  sometimes  be 
based  more  on  the  reputation  of  the  author  than  on  the  merits  of  the  paper. 

Dissemination  of  the  articles  takes  place  in  two  forms,  presentation  at  the 
conference  and  publication  in  the  conference  proceedings.  Putting  on  the  presentations 
incurs  the  greatest  effort  and  expense  for  the  conference.  Coordinating  and  paying  for 
the  resources  required  to  bring  all  the  players  together  in  one  location  is  also  the  most 
challenging  problem.  For  attendees,  the  conference  fee  is  generally  trivial  next  to  the 
cost  of  transportation,  lodging,  and  missed  work. 

An  abstract  catalog  is  published  and  distributed  prior  to  the  conference.  Still, 
most  people  who  attend  presentations  are  not  familiar  enough  with  the  topic  to 
effectively  interact  with  the  author.  The  most  useful  exchange  of  ideas  often  occurs  in 
one-on-one  interactions  that  take  place  outside  the  scheduled  presentations. 

Conference  proceedings  are  a  bulky  set  of  documents  that  often  end  up  on  a 
bookshelf  like  a  trophy,  never  to  be  taken  down  again.  Most  attendees  are  only 
interested  in  one  or  two  articles,  but  their  only  option  is  to  obtain  the  entire  document. 
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As  a  result,  more  conferences  have  started  to  offer  the  proceedings  in  a  CD-ROM  format 
which  allows  readers  to  download  only  articles  of  interest.  In  addition,  a  large 
percentage  of  the  conference  fee  is  required  to  cover  these  printing  costs. 

2.  Information 

Dissemination  of  information  is  the  primary  purpose  of  this  conference.  The 
entire  process  is  built  around  moving  information  from  the  authors  (primary  suppliers)  to 
the  attendees  (primary  customers).  The  flow  of  information  throughout  the  conference 
process  is  as  follows: 

1 .  The  conference  publishes  information  on  desired  submissions, 

2.  Authors  return  information  about  their  articles, 

3.  Reviewers  determine  whether  the  article  is  desirable  for  presentation, 

4.  Attendees  come  to  the  conference  to  obtain  article  information. 

3.         Applications 

The  analysis  of  applications  will  include  processes  which  are  not  yet  automated. 
Existing  automated/on-line  systems  consist  of  an  FTP  server  with  which  attendees 
download  details  about  the  conference  (location,  cost,  etc.),  an  e-mail  address  to  which 
plain  text  ASCII  electronic  submissions  may  be  sent,  and  a  World  Wide  Web  homepage 
which  provides  a  central  point  of  reference.  Non-automated  processes  include  mailing 
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conference  information  to  a  previous-attendees  mailing  list,  collecting  article 
submissions  through  s-mail,  determining  topic  areas,  reviewing  articles,  publishing  the 
hard-copy  conference  proceedings,  and  presenting  the  author's  paper.  Results  of  the 
analysis  are  presented  graphically  in  Appendix  B. 

The  current  system  for  publicizing  the  conference  will  continue.  On-line  systems 
in  place  now  will  continue  to  be  used  to  attract  attendees  and  authors.  Registration 
details  will  continue  to  maintained  on  the  WWW  pages  and  FTP  server.  E-mail  will  be 
retained  as  an  option  for  submitting  articles  (for  a  limited  time),  and  for  general 
communications.  Recognizing  that  everyone  will  not  have  on-line  access,  the  mailing 
list  will  also  continue. 

Determining  topic  areas  is  a  subjective  process  and  will  not  be  modified.  In  the 
future,  individuals  may  be  allowed  to  suggest  topics  which  interest  them.  However, 
collecting  submissions  is  a  prime  candidate  for  re-engineering.  Time  and  monetary  costs 
for  both  the  authors  and  the  conference  are  too  high.  Authors  must  mail  article 
submissions  either  in  hard  copy  or  electronic  format.  Conference  administrators  must 
collect  the  information,  enter  it  into  a  database,  collate  the  abstracts  and  summaries,  and 
arrange  and  print  the  Abstract  Catalog. 

The  review  process  is  another  good  candidate  for  replacement.  The  time  and 
expense  to  bring  reviewers  together  to  conduct  the  reviews  may  become  unnecessary.  By 
making  the  submitted  articles  available  on-line,  reviewers  could  read  them  whenever  and 
wherever  they  desired,  without  having  to  travel  to  Monterey.  The  reviewing  process 
would  be  better  served  by  allowing  reviewers  more  time  to  conduct  reviews.  A  Decision 
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Support  System  (DSS)  could  eventually  be  developed  to  assist  in  the  review  and 
selection  process. 

The  presentation  does  not  need  re-work,  although  improvements  should  be 
considered.  Video  broadcast  and/or  interactive  would  significantly  strengthen  the  quality 
of  the  conference.  Eventually,  interactive  systems  may  even  mature  to  a  point  where  it  is 
no  longer  desirable  to  travel  to  distant  locations  for  a  conference.  But  for  now,  the  social 
interactions  and  technical  difficulties  are  enough  to  maintain  the  presentation  as  a  main 
method  of  information  dissemination. 

Hard-copy  conference  proceedings  would  ideally  be  eliminated  by  a  fully  on-line 
system.  An  on-line  archive  of  presented  articles  would  be  more  efficient  and  cost 
effective.  Attendees  could  decide  whether  they  wish  to  receive  a  printed  proceedings. 
Conference  registration  fees  of  those  desiring  a  hard-copy  would  include  printing  costs. 
Registration  fees  for  everyone  else  could  be  reduced  by  that  amount. 

4.  Technology 

The  use  of  technology  is  presently  limited,  but  there  is  now  a  strong  desire  to 
exploit  the  power  of  the  Internet.  All  on-line  services  are  run  on  a  UNIX  local  area 
network  (LAN)  at  the  Naval  Postgraduate  School.  The  W.  R.  Church  Computer  Center's 
Visualization  Lab  provides  the  server  for  the  Asilomar  Conference  WWW  Home  Page. 
In  addition,  a  PC  LAN  is  available  in  the  Electrical  and  Computer  Engineering  (ECE) 
Department. 
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5.  Survey  Results 

Attendees  to  the  1995  Asilomar  Conference  on  Signals,  Systems,  &  Computers 
were  given  the  opportunity  to  complete  a  survey  about  their  capabilities  and  opinions 
regarding  an  on-line  conferencing  system.  The  only  respondents  were  individuals  who 
presented  articles  at  the  conference.  Since  the  initial  stage  of  this  project  is  geared 
toward  the  submission  of  articles  to  be  considered  for  presentation,  the  narrow  scope  was 
acceptable.  Views  from  a  broader  sample  will  be  beneficial  in  the  later  stages.  Of  the 
one  hundred  and  eighteen  (118)  surveys  returned,  only  one  did  not  support  an  on-line 
system.  Most  respondents  have  WWW  access  and  Netscape  was  by  far  the  browser  of 
choice.  Responses  were  very  positive  regarding  web  access  to  retrieve  registration 
materials,  submit  article,  and  preview  accepted  abstracts.  However,  responders  were 
unsure  whether  they  would  send  comments  to  the  authors  about  their  articles.  A 
summary  of  the  results  is  included  in  Appendix  D. 

6.  Summary 

The  Asilomar  Conference  on  Signals,  Systems,  &  Computers  has  begun  the 
transition  to  the  information  age,  but  has  taken  only  few  small  steps.  Successfully  re- 
engineering  the  processes  that  make  up  the  conference  will  require  a  paradigm  shift,  the 
extent  of  which  the  members  of  the  conference  do  not  yet  realize.  Our  project  is  viewed 
by  most  as  simply  an  added  convenience  for  users  to  be  able  to  submit  documents  on- 
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line.  However,  a  great  deal  of  possibilities  are  being  overlooked.  This  new  system  could 
eventually  revolutionize  the  manner  in  which  the  conference  is  conducted.  What  is 
required  is  a  willingness  of  the  conference  sponsors  to  explore  the  latest  technology 
offered  by  the  WWW. 

Realistic  measures  of  success  of  the  new  system  are  mostly  subjective  issues  of 
user  satisfaction.  However,  a  real  measurement  will  be  made  in  cost  savings,  both  in 
travel  expenses  for  reviews  and  administrative  savings.  Measuring  user  satisfaction  is 
always  difficult.  By  placing  a  "Call  for  Papers"  on  the  WWW  homepage  in  addition  to 
the  usual  mailing  list,  the  widest  possible  dissemination  of  conference  information  is 
possible.  Acceptance  of  the  new  system  will  be  gauged  by  actual  usage.  A  survey  of 
respondents  can  be  taken  as  well  to  discover  how  they  obtained  conference  information. 

On  the  review  process,  user  satisfaction  becomes  even  more  difficult.  One 
measure  will  be  to  count  how  many  people  review  an  article,  on  average.  However,  this 
is  not  completely  accurate  since  more  reviews  do  not  automatically  translate  into  "better" 
reviews.  Satisfaction  of  the  reviewers  would  be  a  good  measure  because  they  could 
gauge  whether  having  a  more  relaxed  atmosphere  to  do  the  review  was  helpful.  They 
could  also  estimate  their  own  ability  to  conduct  the  review. 

B.         TARGET  SYSTEM 

As  stated  in  the  introduction,  part  of  the  goal  of  this  thesis  was  to  develop  a  target 
system  and  implement  a  portion  of  it.  Users'  goals  for  the  system  were  acquired  from 

15 


the  survey  conducted  and  through  meetings  with  conference  staff  members.  These  goals 
serve  as  the  blueprint  for  the  system  design. 

1.         User  Goals 

The  primary  goal  of  the  conference  is  to  be  able  to  collect  and  process  article 
abstracts  and  summaries  efficiently.  There  is  no  requirement  for  electronic  submission, 
but  the  more  people  use  the  system,  the  greater  the  efficiency  will  be.  To  accomplish 
this  task,  the  system  must  be  able  to: 

1 )  reliably  receive  and  number  documents, 

2)  print  documents, 

3)  maintain  Abstracts  separate  from  Extended  Summaries, 

4)  sort  incoming  documents  by  Keywords, 

5)  send  automated  acknowledgments  to  submittor, 

6)  keep  track  of  what  is  sent  and  received, 

7)  provide  the  staff  access  to  submissions,  but  prevent  unauthorized  viewing. 

Finally,  maintainability  is  a  concern.  The  target  system  for  the  Asilomar  conference  on 
Signals,  Systems,  &  Computers  consists  of  the  following  on-line  services: 

1 )  conference  information, 

2)  registration  and  payment, 

3)  article  submission, 
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4)  article  review, 

5)  article  archiving. 

1)  Conference  information 

Information  regarding  the  conference  program,  registration,  submission 
process  and  local  points  of  interest  such  as  dining  and  hotels  will  be  available  on-line. 

2)  On-line  Registration 

Attendees  not  only  receive  information  about  the  conference,  they  can 
register,  reserve  hotel  rooms,  rental  cars,  and  dinning  arrangements.  Everything  will  be 
purchased  on-line  through  the  convenience  of  electronic  commerce.  The  system  will 
also  maintain  a  database  of  names  and  addresses  of  conference  attendees. 


3)         On-line  Submission 

Authors  can  submit  their  articles  and  extended  summaries  from  any 
Internet  connection. 
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4)  On-line  Review 

Articles  are  reviewed  and  selected  on-line  via  the  Internet  with  any 
standard  web  browser.  Accept  and  reject  letters  are  automatically  printed  once  the 
reviewing  process  is  complete. 

5)  On-line  Article  Archive 

Articles  are  available  for  review  and  download  over  the  WWW  which 
replaces  a  need  for  hard  copy  proceedings. 

2.         Future  Possibilities 

The  ultimate  goal  for  the  conference  is  a  WWW  system  which  covers  every 
aspect  of  the  Conference:  information,  registration,  submission,  and  continual  interaction 
on  various  topic  areas  through  news  groups,  chat  rooms,  and  e-mail.  Eventually,  on-line 
capabilities  may  replace  the  face-to-face  conference.  Articles  may  be  submitted, 
reviewed,  presented,  and  archived  entirely  on-line.  The  "conference"  is  no  longer  a 
physical  meeting  at  a  specific  place  or  time.  Interested  individuals  can  submit  articles 
and  recorded  presentations  on  a  continual  basis.  Articles  are  maintained  on  server  for 
access  on  demand.  The  social  interactions  are  replicated  through  e-mail,  news  groups, 
and  chat  rooms.  The  exchange  of  information  is  an  on-going  process. 
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C.         MIGRATION  TO  THE  TARGET 

Reliability  in  the  system  is  paramount.  Migration  must  occur  with  a  minimum  of 
risk  to  the  conference,  as  data  loss  would  be  entirely  unacceptable. 

1.         Path  to  Target 

The  five  services  discussed  in  Section  in.  D  could  be  implemented 
independently,  or  concurrently.  However,  the  logical  serial  path  will  be  as  follows: 

1)  Conference  Information, 

2)  Article  Submission, 

3)  Article  Review, 

4)  Article  Archive, 

5)  Registration  and  payment. 

Re-engineering  the  review  process  is  the  highest  priority  because  this  is  where  the 
most  time  and  money  can  be  saved  and  the  most  value  added  to  the  system.  However, 
on-line  submissions  must  be  accomplished  first.  Otherwise,  administrative  personnel 
would  have  to  store  the  submissions  electronically  before  they  could  be  reviewed  on-line. 
Archiving  should  follow  submission  because  the  on-line  submission  components  will 
serve  as  catalog  information  for  the  archive.  Registration  and  payment  should  be  last 
simply  because  technology  for  universal  electronic  payment  (digital  cash)  is  still 
developing.  On-line  registration  without  on-line  payment  would  only  complicate  the 
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process. 

2.         Thesis  Goal 

For  the  purpose  of  this  thesis,  the  submission  process  and  several  administrative 
functions  will  be  automated.  Authors  will  not  only  submit  information  about  their 
articles,  they  will  also  update  their  contact  information  maintained  in  the  conference 
database.  The  system  will  rely  on  HTML  3.0  forms  to  collect  the  information  and 
common  gateway  interfaces  (CGI)  to  place  the  data  into  a  database. 

Implementation  also  requires  the  availability  of  several  system  administration 
functions.  Necessary  capabilities  include  maintaining  passwords,  accessing  the  database, 
updating  the  database  as  articles  are  reviewed  and  selected,  and  printing  articles, 
accept/reject  notices,  and  the  abstract  catalog.  User-friendly  interfaces  and  highly 
automated  CGFs  will  be  used  to  emphasize  ease  of  use. 
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IV.      IMPLEMENTATION 
A.         ISSUES 

1.         Information  Flow 

The  current  submission  process  is  tedious  for  both  the  Asilomar  Conference  staff 
and  the  submitting  author.  Registration  forms,  abstracts,  and  extended  summaries  must 
all  be  sent  on  paper  or  via  e-mail.  The  conference  staff,  consisting  of  one  person  at  this 
time,  must  then  sort  through  the  myriad  of  papers  and  forms  and  enter  all  the  information 
manually.  Abstracts  must  either  be  retyped  or  scanned  into  the  old  computer  system,  and 
formatted  for  the  abstract  catalogue  published  at  each  conference. 

The  new  on-line  system  will  eliminate  these  and  other  hassles.  All  information  is 
stored  directly  to  a  database  with  the  exception  of  extended  summaries  which  are  stored 
as  files  in  a  separate  directory.  The  author  saves  printing  and  mailing  costs  as  well.  The 
administration  functions  built  in  to  the  new  system  enables  the  administrator  to 
manipulate  the  database  from  any  Internet  connection.  The  abstract  catalogue  is 
automatically  formatted  and  can  be  printed  with  the  click  of  a  button.  As  more  people 
use  the  system,  the  entire  registration  process  becomes  more  timely,  accurate,  and 
simple. 
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2.  Compatibility  with  the  Current  System 

The  Asilomar  conference  currently  maintains  an  information-only  web  site.  All 
conference  registration,  abstract  submissions,  and  database  functions  are  handled 
manually.  The  system  we  have  created  can  be  accessed  from  the  current  site  and  will 
automate  a  majority  of  the  processes.  Our  system  integrates  the  existing  database  and 
can  be  used  in  conjunction  with  all  manual  processes. 

3.  Platform  Selection 

One  of  the  first  major  decisions  of  this  project  involved  the  selection  of  the 
hardware  platform  best  suited  to  our  needs.  We  considered  two  alternatives:  1)  the  Naval 
Post  Graduate  School's  UNIX  system,  2)  to  purchase  a  Personal  Computer  to  connect  to 
the  school's  Ethernet  network.  Factors  affecting  the  decision  included  security,  price, 
available  software,  and  performance.  The  advantages  and  disadvantages  are  delineated 
by  platform. 

a.  UNIX 

The  UNIX  system  offered  speed  and  bandwidth  with  no  monetary 
expenditure,  but  had  some  serious  drawbacks.  The  UNIX  system  did  not  have  a 
functional  database  installed.  An  effort  was  underway  to  implement  the  Oracle  database, 
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however,  the  completion  date  was  unknown  at  the  time.  Also  at  that  point,  the  NPS 
system  administrator  was  not  in  favor  of  allowing  students  to  run  Perl  executables  from 
their  accounts  due  to  security  concerns.  Such  a  limitation  was  unacceptable  for  our 
project.  The  system  administrator  acquiesced  to  a  trial  period  for  our  project,  but  would 
not  guarantee  a  permanent  solution. 

b.  Desktop  PC 

The  PC  offered  access  to  the  latest  software  development,  Internet  access, 
and  database  programs,  but  at  a  cost.  Software  costs  alone  were  expected  to  exceed  $500 
in  addition  to  $3000  for  hardware.  The  PC  also  had  speed  and  bandwidth  limitations. 

c.  System  Selection 

Based  on  the  unstable  commitment  from  the  UNIX  system  administrator 
and  the  proliferation  of  4th  generation  application  development  languages  available  for 
the  PC,  we  elected  to  design  our  system  on  a  PC  running  Windows  95.  The  decision  was 
a  wise  one  because  in  December  of  1995,  the  UNIX  system  was  compromised  and 
security  restrictions  were  increased  as  a  result. 
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4.  Application  Selection 

a.  Common  Gateway  Interface 

Executable  programs  on  the  Internet  must  follow  one  of  a  few 
programming  protocols.  Of  those,  the  most  prevalent  is  the  Common  Gateway  Interface 
(CGI).  Many  different  languages  can  support  CGI  functions,  with  ease  of  use  varying 
greatly  among  them.  Once  we  decided  on  a  PC  platform,  the  list  of  CGI  languages 
narrowed.  There  were  three  major  contenders:  1)  Cold  Fusion  by  Allaire,  inc.,  [Ref.  1] 
2)  Delphi  by  Borland  [Ref.  2]  and,  3)  DOS  Perl  [Ref.  3]. 

Cold  Fusion  is  a  brand  new  product,  still  in  its  first  version  with  little 
documentation  available.  It  was  originally  developed  specifically  as  an  interface 
between  a  database  and  the  Internet.  It  came  highly  recommended  from  several 
classmates  who  had  recently  begun  using  it  to  develop  web  applications.  Cold  Fusion 
offered  an  easy  to  use  interface,  a  language  very  similar  to  FITML,  and  compatibility 
with  the  latest  version  of  Microsoft's  Access  database.  However,  it  lacked  powerful 
programming  tools  and  the  flexibility  of  a  true  application  development  language. 

Delphi  is  a  Windows  application  development  tool.  The  programming 
language  is  essentially  Pascal,  but  Delphi  adds  drag  and  drop  programming  elements, 
drop  down  lists,  and  a  point  and  click  interface  to  automate  much  of  the  coding  process. 
Delphi  offers  seamless  connectivity  with  Borland's  Paradox  database,  which 
coincidentally,  was  the  database  in  use  at  the  time  by  conference  administrators. 
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Unfortunately,  the  CGI  programming  elements  were  new,  and  thus,  poorly  documented. 
These  elements  were  developed  outside  of  the  Borland  corporation  by  Ann  Lynnworth  of 
HREF  Tools  Corp.fRef.  4],  so  no  technical  support  was  available.  Once  again, 
classmates  who  had  just  begun  using  Delphi  with  these  new  elements  recommended 
them  as  the  solution  for  our  system. 

DOS  Perl  offered  none  of  the  advantages  listed  above  and  since  it  is  not  a 
Windows  application,  the  power  and  flexibility  of  Windows  '95  would  be  lost.  As  a 
result,  it  was  eliminated  as  a  choice  early  on. 

Delphi  was  chosen  as  the  language  to  be  used  because  of  the 
programming  flexibility  and  the  compatibility  with  the  database  already  in  use  by  the 
conference  staff.  As  it  turns  out,  Delphi's  programming  robustness  was  needed  to  its  full 
extent  to  create  the  system  we  did. 

b.  Database 

The  choice  of  database  was  linked  to  our  selection  of  a  CGI  language. 
Cold  Fusion  interacted  seamlessly  with  Microsoft  Access  as  Delphi  did  with  Borland 
Paradox.  Once  the  decision  was  made  to  use  Delphi,  Paradox  was  the  logical  choice. 

c.  Web  Server 

Selecting  a  web  server  was  a  difficult  choice,  as  there  are  many  products 
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available  with  a  wide  variety  of  functions  and  prices.  From  the  many,  two  stood  out  as 
having  the  functionality  and  compatibility  desired  for  our  system.  Those  were  Netscape 
HTTPD  [Ref  5]  and  O'Rielly's  Website  [Ref.  6].  Our  choice  was  made  based  on  word  of 
mouth  recommendations  from  classmates  experienced  in  using  both  products.  Website 
offered  a  better  combination  of  ease  of  use,  flexibility,  performance,  and  price.  Website 
was  also  compatible  with  both  Cold  Fusion  and  Delphi  programming  languages. 

5.         Security 

System  protection  is  a  primary  concern  in  this  project.  Authors  from  literally 
around  the  world  will  be  submitting  information,  abstracts,  and  extended  summaries  via 
this  system  which  will  be  used  to  accept  or  reject  their  papers.  The  database  will  be  used 
to  maintain  mailing  address  lists  and  an  archive  of  abstracts  to  be  published  in  the 
conference  proceedings.  It  is  therefore  imperative  that  all  data  received  is  accurate  and 
secure. 

a.         System  Protection 

Physically,  the  system  is  located  in  the  Digital  Signal  Processing 
laboratory  at  the  Naval  Postgraduate  School.  This  area  is  only  used  by  students  working 
on  thesis  topics  and  is  locked  at  night.  The  PC  is  password  protected  on  boot-up  and 
uses  a  password  protected  screen  saver.  While  certainly  not  foolproof,  the  protection 
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offered  will  keep  the  average  mischievous  person  at  bay.  The  expected  threat  here  is 
low,  because  of  the  system's  location  and  the  student's  respect  for  the  work  of  others. 
The  true  threat  lies  from  Internet  users  notorious  for  attempting  to  hack  systems  for  the 
fun  of  it.  This  issue  is  covered  as  it  applies  to  specific  components  of  our  system. 

b.         Database  Protection 

The  primary  means  of  database  protection  is  timely  backups.  With  the 
tape  backup,  the  entire  contents  of  the  database  will  be  copied  on  a  regular  basis.  Thus, 
for  any  catastrophic  event,  the  data  loss  will  be  minimal.  As  any  system  designer  knows, 
a  computer  is  only  secure  if  it  has  no  connections  to  it  and  is  locked  in  a  vault  that  has  no 
doors.  A  PC  connected  to  the  Internet  has  many  vulnerabilities,  but  we  have  minimized 
those  through  the  design  of  the  system  itself.  Database  functions  are  accessed  through 
the  administrative  section  of  the  system.  Access  to  this  area  is  controlled  by  a  password 
form. 

One  problem  with  Internet  applications  is  that  once  someone  knows  the 
name  of  an  executable  file,  he  may  run  that  file  by  typing  the  path  information  into  the 
URL  field  of  his  web  browser.  If  that  file  exists,  it  will  be  executed.  We  have 
programmed  into  every  executable  a  conditional  check  of  a  flag  variable.  This  flag  can 
only  be  set  by  entering  the  appropriate  login  and  password  combination  on  the  first 
screen.  Once  the  password  has  been  entered  correctly,  a  flag  is  set  that  will  allow  a  user 
to  access  all  database  functions.  The  programs  will  execute  without  the  flag  being  set, 
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however  each  program  will  only  print  out  a  warning  message  and  return  the  user  to  the 
login  screen.  So,  even  if  an  unauthorized  user  discovers  the  names  of  the  executables, 
there  is  no  way  (that  we  know  of)  to  set  the  flag  variable  without  the  proper  login  and 
password. 

The  threat  still  exists  of  a  brute  force  attack  on  the  login  and  password 
combinations.  A  brute  force  attack  is  one  where  a  hacker  attempts  to  guess  the  login  and 
passwords  of  legitimate  users.  This  small  threat  can  be  minimized  even  more  through 
limiting  the  number  of  users  (currently  two),  frequent  password  changes,  and  using  good 
password  selection  techniques  -  including  upper  and  lower  case,  digits,  and  special 
characters  within  the  password. 

c.         Application  Protection 

(1)  Website  Security.  The  denial  of  access  to  the  PC's  hard  drive  is  the 
responsibility  of  the  server  software,  Website.  This  program  controls  all  Internet  access 
functions  of  the  system.  Inherent  in  its  design  is  a  restriction  that  limits  users  to 
directories  higher  than  the  C:\Website  directory.  In  other  words,  when  a  browser 
accesses  the  system,  the  lowest  directory  available  to  it  is  either  C:\Website\Htdocs  or 
C:\Website\cgi-win.  It  is  not  possible  to  access  the  root  directory  or  any  other  directory 
than  those  stated  above.  Website  also  does  not  allow  file  uploads  (i.e.  a  user  sending  a 
file  to  our  computer)  or  modification  of  files  on  our  system.  Therefore,  a  user  may  look 
at  and  execute  any  file  that  we  place  higher  in  the  directory  structure  than  C:\Website, 
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but  nothing  else. 

(2)  FTPD  Security.  One  of  the  requirements  of  the  system  was  that 
authors  must  be  able  to  upload  Post  Script  files  of  their  extended  summaries.  This 
required  FTP  server  software  be  installed.  This  software  inherently  adds  security  risks 
because  it  grants  users  the  ability  to  upload  and  download  files  as  well  as  to  view  and 
modify  the  contents  of  a  directory  (i.e.  delete  and  rename).  Security  controls  built  in  to 
the  software  package  allow  the  server  administrator  to  restrict  a  user's  access  rights. 
Currently  we  have  limited  all  users'  rights  to  file  upload  only.  Users  cannot  view  the 
contents  of  the  directory,  modify  its  contents,  or  change  directories.  The  strength  of  this 
protection  lies  within  the  strength  of  the  program  itself.  We  are  currently  using  a 
shareware  version  of  WFTPD  [Ref.  7],  a  popular  FTP  server.  By  limiting  the  user's 
ability  to  change  directories,  modify  directory  contents,  and  view  directory  contents,  the 
ability  to  corrupt  another  author's  data  is  slight. 

B.        System  Design 

1.         System  Overview 

The  entire  Asilomar  Conference  System  consists  of  the  following  elements: 

1 )  The  Asilomar  Conference  information  homepage 

2)  The  article  submission  sub-system 

3)  The  administration  sub-system 
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4)         The  article  review  sub-system. 

Prior  to  this  thesis,  only  the  first  element  existed.  The  second  and  third  have  been 
implemented  and  comprise  the  bulk  of  this  thesis.  The  fourth  element  will  be  completed 
in  a  follow-on  project. 

a.         System  Flow  Diagrams 

The  following  diagrams  show  the  relationship  of:  1 )  the  Asilomar 
Conference  System  as  a  whole,  2)  the  article  submission  sub-system  and,  3)  the 
administration  sub-system.  The  information  homepage  and  the  article  review  sub-system 
were  not  within  the  scope  of  this  thesis,  and  as  such,  are  not  included. 
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Figure  4-1.  Asilomar  Conference  System. 
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Figure  4-2.  Article  Submission  Sub-system. 
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Figure  4-3.  Administration  Sub-system. 
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2.         Article  Submission  Sub-system  description 

The  Article  Submission  Sub-system  is  a  combination  of  HTML  pages  and  Delphi 
executable  programs  that  form  the  user  interface  for  the  conference  registration  process. 
Images  of  each  HTML  page  are  at  the  end  of  this  chapter  and  are  referred  to  in  the 
program  descriptions  below. 

Via  this  system,  users  can  add  and  update  personal  information  as  well  as  submit 
articles  and  paper  summaries  for  review.  Security  is  not  a  concern  in  this  sub-system 
because  any  changes  made  to  a  user's  personal  information  is  sent  to  a  temporary 
database.  The  update  is  only  made  permanent  when  reviewed  by  the  system 
administrator. 

a.  Author  submission  sub-system  introduction 

The  introduction  HTML  page  (Introl0.htm)  welcomes  the  user  and  offers 
three  hypertext  link  options  as  shown  in  Fig.  4-4.  All  figures  appear  at  the  end  of  Section 
IV. 

1 )  Obtain  information  for  on-line  submission  (Infol2.htm), 

2)  Obtain  information  for  manual  submission  (Manuall  l.htm), 

3)  Transfer  to  the  on-line  submission  process  (Searchl3.htm). 
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(1)  On-line  submission  information  (Infol2.htm),  Fig.  4-5.  This  page 
explains  the  requirements  and  process  necessary  for  a  user  to  submit  information  with 
the  WWW-based  system.  There  is  a  hypertext  link  to  Extsumm.htm  (Fig.  4-6)  which  is 
an  HTML  page  that  explains  what  an  extended  summary  is.  In  addition,  this  HTML  page 
contains  two  links  which  enable  a  user  to  download  a  file  transfer  protocol  (FTP) 
program  in  either  Windows  3. 1  or  '95  format,  as  FTP  is  required  for  users  who  wish  to 
upload  an  extended  summary  for  review. 

(2)  Manual  submission  information  (Manual  11. htm)  page,  Fig.  4-7.  This 
HTML  page  briefly  outlines  the  steps  necessary  for  an  author  to  submit  personal  and 
article  data  via  U.S.  mail. 

(3)  Submit  information  on-line  (Searchl3.htm),  Fig.  4-8.  The  first  step  in 
the  on-line  submission  process  is  a  check  of  the  database  for  the  author's  name.  This 
HTML  page  asks  the  user  to  input  his  first  and  last  name  and  middle  initial.  The  HTML 
form  then  calls  a  Delphi  executable  (D13.exe),  which  conducts  the  database  query. 

b.         The  database  query 

The  executable  (D13.exe),  receives  the  author's  name  and  queries  the 
Author.db  database  table.  The  query  has  three  possible  outcomes:  1 )  the  author's  name 
is  not  found,  2)  a  unique  match  is  found,  3)  multiple  matches  are  found.  For  each 
outcome,  the  program  will  create  a  specific  HTML  form. 

Outcome  one:  a  blank  HTML  input  form  is  created  (Fig.  4-9)  that  allows 
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the  author  to  input  his/her  personal  information.  Once  submitted,  this  form  calls  an 
executable  program  (Addl32.exe)  which  stores  the  information  directly  to  the  permanent 
author  table  (Author.db). 

Outcome  two:  an  HTML  form  is  generated  that  contains  all  known 
information  about  the  author  filled  in  the  appropriate  blanks  (Fig.  4-10).  The  author  may 
then  either  accept  the  information  as  is,  or  make  changes  to  it.  When  submitted,  this 
form  calls  an  executable  (Editl32.exe)  which  stores  changed  information  to  a  temporary 
database  to  be  reviewed  by  the  system  administrator.  One  other  possibility  that  had  to  be 
accounted  for  was  when  the  database  returned  a  unique  entry  that  referred  to  a  different 
user.  If  this  is  the  case,  the  author  can  select  a  hypertext  link  to  an  HTML  form 
(Authl312.htm)  which  allows  him/her  to  enter  his  personal  information  (Fig.  4-1 1). 
Once  the  form  is  filled  in,  Addl32.exe  is  called  to  store  the  information  to  the  permanent 
database,  Author.db. 

Outcome  three:  if  more  than  one  match  is  found,  the  user  is  presented 
with  a  table  of  names  from  which  he/she  can  choose  a  selected  record  by  clicking  on  the 
hypertext  entry  (Fig.  4-12).  Doing  so  will  call  an  executable  (Multil32.exe)  which 
generates  the  same  form  as  the  unique  entry  case  and  performs  the  same  functions.  Once 
this  form  has  been  completed,  Editl32.exe  is  called  to  store  the  information  to  the 
temporary  database  table  (Tempauth.db). 
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c.  Article  submission 

At  this  point,  the  author's  information  has  been  stored  in  either  the 
permanent  author  table  by  the  executable  program  Addl32.exe,  or  into  the  temporary 
author  table  by  Editl32.exe.  Both  of  these  programs,  when  complete,  generate  an 
information  page  that  tells  the  user  he/she  has  completed  the  personal  information 
process  and  should  proceed  to  the  article  submission  by  clicking  the  button  which  calls 
the  next  executable  (Fig.  4-13). 

The  executable  D_Submit.exe  generates  an  HTML  form  that  allows  the  user  to 
input  an  abstract,  title,  keywords,  and  other  relevant  article  information  (Figs.  4-14, 
4-15).  When  submitted,  the  information  is  redisplayed  by  the  executable  Dpaper.exe 
(Figs.  4-16, 4-17).  The  user  is  given  a  message  stating  that  once  this  form  is  submitted, 
the  information  cannot  be  changed. 

d.  Confirmation  Page 

Once  the  user  has  confirmed  the  data  entered  into  the  form  created  by 
Dpaper.exe,  a  confirmation  page  is  created  by  the  executable  D2paper.exe  (Fig.  4-18). 
This  final  page  contains  a  unique  registration  number,  instructions  on  how  to  upload  an 
article  summary,  and  Log-in  information  for  the  FTP  server. 
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3.  Administration  Sub-system  description 

Functions  associated  with  maintaining  the  database,  administering  the  system  and 
handling  the  submissions  are  located  in  the  administration  sub-system.  Security  is  a 
major  concern  within  this  portion  of  the  system  because  of  database  integrity  issues. 

The  administration  sub-system  is  password  protected,  and  uses  only  dynamically 
created  HTML  pages.  In  other  words,  any  HTML  form  that  the  user  sees  is  created  by 
Delphi  executable  programs.  This  prevents  would  be  hackers  from  accessing  database 
management  functions  because  each  program  requires  an  access  code  to  create  an  HTML 
form.  The  access  code  is  generated  once  the  user  has  entered  a  correct  login  and 
password.  The  code  is  then  passed  from  executable  to  executable  transparent  to  the  user. 
Anyone  attempting  to  execute  any  of  the  programs  without  having  first  entered  a  correct 
login  and  password  is  given  a  warning  message  instead  of  the  HTML  form  the  program 
would  normally  create.  The  intent  is  not  to  have  an  air-tight  system,  rather  to  prevent  the 
casual  user  and  novice  hacker  from  accessing  the  database.  Encryption  is  not  used,  so 
the  system  is  still  vulnerable  to  sniffers  gaining  passwords  and  access  codes.  Future 
improvements  to  combat  this  vulnerability  could  include  a  one-time  password  system  in 
which  passwords  are  only  valid  for  one  session,  after  which,  a  new  password  must  be 
used.  Another  solution  is  to  install  a  firewall  that  limits  access  to  the  administration  sub- 
system based  on  the  user's  location.  The  technology  for  both  these  improvements  is 
currently  available. 
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a.  Log-on  and  main  menu 

The  first  page  in  the  admin  sub-system  is  an  HTML  page  (Admin20.htm) 
that  declares  the  purpose  of  the  page  and  includes  a  form  for  entering  a  USERID  and 
PASSWORD  (Fig.  4-19).  This  is  the  only  HTML  page  in  the  admin  sub-system  not 
created  by  a  Delphi  executable  program. 

A  CGI  executable  takes  the  Form  input  (USERID  and  PASSWORD), 
verifies  the  user,  and  generates  an  HTML  page  which  contains  the  Administration  Main 
Menu  (Fig.  4-20).  The  menu  consists  of  buttons,  each  of  which  evokes  a  series  of 
executables  for  the  respective  function.  Failure  to  provide  a  valid  password  generates  an 
HTML  page  which  warns  against  unauthorized  access  and  allows  a  retry. 

b.  Review  changes  to  Author  data 

One  of  the  functions  of  the  Submission  Sub-system  is  to  allow  an  author 
to  update  his/her  personal  information  (see  chap.  TV,  sec.  2c).  These  changes  are  stored 
in  a  temporary  table  called  Tempauth.db.  This  function  allows  the  System 
Administrator  to  review  the  submitted  changes  before  they  become  permanent.  If  the 
entries  appear  to  have  been  changed  maliciously,  they  can  be  rejected.  Otherwise,  they 
are  accepted  and  become  part  of  the  permanent  record.  This  process  requires  four 
executables: 

1 )         Change  Author  (AuChange.exe) 
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2)  View  changes  (ViewChng.exe) 

3)  Make  the  change  (MakeChng.exe) 

4)  Do  not  make  the  change  (NoChangcexe) 

(1)  Author  Changes  (AuChangcexe).  This  program  is  called  from  the 
Admin  Main  Menu  to  retrieve  any  data  in  the  Tempauth.db  table  and  present  it  in  an 
HTML  form  with  selected  information  about  the  Author  (Fig.  4-21).  The  record  number 
of  the  change  is  presented  as  a  hypertext  link  to  the  record  information.  The  System 
Admin  chooses  the  author  whose  record  changes  they  wish  to  review  by  clicking  on  the 
hypertext  record  number. 

(2)  View  changes  (ViewChng.exe).  Called  from  the  dynamically  created 
Author  Changes  Table  (AuChangcexe),  this  program  presents  the  submitted  changes 
side-by-side  with  the  permanent  data  (Fig.  4-22,  4-23).  If  acceptable,  the  "Accept 
Changes"  button  calls  MakeChng.exe  to  replace  the  permanent  data.  Otherwise,  the 
"Discard  Changes"  button  calls  NoChangcexe  which  discards  the  changes. 

(3)  Make  the  Change  (MakeChng.exe).  This  function  replaces  the 
permanent  Author  record  with  the  submitted  changes.  The  data  in  the  Tempauth.db 
Table  is  discarded  after  the  change  is  made.  A  confirmation  page  is  sent  with  the  option 
to  "review  more  changes"  which  links  back  to  AuChangcexe. 
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(4)  Do  not  make  changes  (NoChangcexe).  This  function  discards  the 
changes  without  modifying  the  permanent  Author  record.  A  confirmation  page  is  sent 
with  the  option  to  "review  more  changes"  which  links  back  to  AuChangcexe. 

c.         Edit  Author  data 

This  function  allows  the  system  administrator  to  directly  access  Contact 
Author  data  held  in  the  Author.db  table.  After  presenting  a  form  for  entering  the  first 
name,  last  name,  and  middle  initial  of  the  desired  Author,  a  series  of  screens  is  presented 
to  ensure  selection  of  the  proper  record.  Once  the  Author  has  been  identified,  the 
information  is  presented  in  a  Form.  Changes  made  to  the  Form  go  directly  into  the 
permanent  record. 

Five  programs  are  required  to  implement  this  function. 

1 )  Input  Author  name  ( Input Au.exe ) 

2)  Search  the  database  and  show  results  (AuthSrch.exe) 

3)  Add  a  new  author  (AuAdd.exe) 

4)  Resolve  multiple  matches  (AuMulti.exe) 

5)  Edit  the  Author  (AuEdit.exe) 

(1)  Input  Author  Name  (Inputau.exe).  This  program  generates  an  HTML 
page  with  a  form  to  submit  the  author  name  whose  record  will  be  edited  (Fig.  4-24). 
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(2)  Search  the  database  (AuthSrch.exe).  After  searching  the  database  for 
the  given  author  name,  this  program  branches  according  to  how  many  matches  were 
found.  If  no  match  to  the  submitted  author  name  exists  in  the  database,  a  blank  author 
data  form  is  generated  (Fig.  4-25).  Submitting  this  form  calls  AuAdd.exe.  A  single 
match  generates  an  author  data  form  which  contains  the  database  fields  (Fig.  4-26). 
Submitting  this  form  calls  AuEditexe.  When  multiple  matches  to  the  name  are  found,  a 
table  containing  all  of  the  matches  is  generated  (Fig.  4-27).    Each  match  has  a  hypertext 
link  which  calls  AuMulti.exe. 

(3)  Add  a  new  Author  (AuAdd.exe).  Called  by  submitting  the  new 
author  form,  this  program  takes  the  form  data  and  creates  a  new  author  record.  A 
confirmation  page  is  sent  with  the  option  to  "Edit  another  Author"  which  links  back  to 
InputAu.exe. 

(4)  Multiple  Matches  (AuMulti.exe).  This  program  is  called  by  the 
hypertext  links  on  the  multiple  matches  table.  The  record  number  passed  by  the 
hypertext  link  is  used  to  retrieve  an  author's  data  which  is  presented  in  an  HTML  form 
for  editing.  Submitting  this  form  calls  AuEdit.exe. 

(5)  Edit  an  Author  (AuEditexe).  This  program  is  called  after  author  data 
has  been  edited  and  needs  to  be  updated  in  the  Author.db  table  (Fig.  4-26).  If  a  unique 
match  was  found  during  the  initial  search,  then  AuEditexe  is  called  by  the  form 
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generated  by  AuthSrch.exe.  If  there  were  multiple  matches  found,  AuEditexe  is  called 
from  the  form  generated  by  AuMulti.exe.  To  protect  the  permanent  database,  these 
changes  go  into  a  temporary  table  called  TempAuthor.db.  The  system  Administrator 
must  review  and  approve  the  changes  before  the  permanent  database  is  modified. 

d.         Edit  Article  Data 

This  function  allows  direct  access  to  Article  data  held  in  the  Submissi.db 
table.  Three  options  are  presented  for  finding  a  specific  article  record.  An  article  may 
be  chosen  from  a  list  of  all  the  articles  in  the  database,  from  a  list  of  articles  which  meet 
certain  user-selected  criteria,  or  from  a  list  of  articles  submitted  by  a  certain  author. 
Whichever  option  is  chosen,  the  user  is  presented  with  a  table  of  article  titles  that  are 
hypertext  links  to  the  article  record.  Once  the  article  has  been  identified,  the  information 
is  presented  in  an  HTML  form.  Changes  made  to  the  form  are  submitted  directly  into  the 
Submissi.db  table.  The  Edit  Article  Data  function  has  the  following  components: 

1 )  Edit  an  Article  (ArtlEditexe) 

2)  Search  for  the  Article  (ArtlSrch.exe) 

3)  Article  by  Author  Search  (ArtlAuth.exe) 

4)  View  the  Article  (ArtlView.exe) 

5)  Post  the  Article  (ArtlPostexe) 
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(1)  Edit  an  Article  (ArtIEdit.exe).  Called  from  the  main  menu,  this 
program  creates  an  HTML  page  with  three  selection  options  (Fig.  4-28).  To  generate  a 
table  with  all  the  article  titles,  a  button  links  to  ArtlSrch.exe  with  a  hidden  action  flag 
set  to  "all."  To  specify  criteria  for  the  article,  a  form  is  presented  with  four  fields: 
invited,  accepted,  keyword,  and  session.  Each  field  has  a  drop-down  box  of  choices. 
The  option  to  not  search  on  the  field  is  available  on  each.  Choices  for  "invited"  and 
"accepted"  are  "yes,"  "no,"  and  "do  not  search  on  this  field."  The  "keyword"  search 
criterion  has  all  the  keywords  in  the  Keyword.db  table,  and  "session"  has  all  the  sessions 
in  the  Session.db  table.  The  submit  button  calls  ArtlSrch.exe  with  the  hidden  flag  set  to 
"article"  and  performs  a  query  on  the  selected  fields.  If  each  of  the  four  search  fields  is 
set  to  "do  not  search  on  this  field,"  the  result  is  a  table  containing  all  article  titles. 

To  generate  a  table  of  articles  submitted  by  a  specific  author,  a  form  is  available 
to  input  the  name.  The  submit  button  for  this  form  also  calls  ArtlSrch.exe,  but  the 
hidden  flag  is  set  to  "author." 

(2)  Search  for  the  Article  (ArtlSrch.exe).  The  action  performed  by  this 
program  depends  on  the  hidden  action  flag  sent  by  the  calling  program.     A  flag  set  to 
"All"  generates  a  table  containing  every  title  in  the  Submissi.db  table.  Each  title  is  a 
hypertext  link  to  ArtlView.exe  with  that  article's  record  number  (Fig.  4-29).  If  "Article" 
is  the  flag's  value,  the  Submissi.db  table  is  queried  based  on  the  criteria  ("invited", 
"accepted",  "keyword",  or  "session")  submitted  in  the  previous  form,  and  a  similar  table 
is  generated.  If  the  flag  is  set  to  "Author,"  a  search  is  conducted  for  matches  to  the 
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submitted  name.  The  author  search  is  rather  complicated.  Author  names  are  stored  in 
two  different  locations,  depending  on  whether  they  are  the  "contact"  author  for  the  paper, 
or  an  "other"  author.  First,  the  Author.db  table,  which  contains  only  contact  authors,  is 
queried  for  matches.  If  there  are  no  matches,  then  the  Submissi.db  table  is  searched  for 
"non-contact  author"  matches  and  the  results  are  displayed  in  an  HTML  table.  If  there  is 
a  contact  author  match,  an  HTML  table  is  generated  with  a  list  of  those  matches  so  the 
exact  author  can  be  determined.  The  authors  in  the  created  HTML  table  are  hypertext 
linked  to  ArtlAuth.exe  so  that  the  query  will  search  through  the  non-contact  authors  as 
well.  If  the  requested  author's  name  appears  on  the  list,  but  belongs  to  a  different  author 
with  the  same  name,  a  button  is  available  which  links  to  ArtlAuth.exe,  and  a  flag  set  to 
"not  a  contact  author"  so  the  search  will  continue. 

(3)  Article  by  Author  (ArtlAuth.exe).  This  program  is  called  when 
ArtlSrch.exe  finds  a  match  in  the  Author.db  table.  Two  queries  are  done,  one  to  find 
the  articles  with  contact  author  matches,  and  one  for  "other"  authors.  A  table  of  article 
titles  is  generated  with  the  results  of  each  of  these  queries  (Fig.  4-30).  Each  title  is  a 
hypertext  link  to  ArtlView.exe  with  that  article's  number.  If  the  "not  a  contact  author" 
flag  is  set,  then  the  contact  author  query  is  not  executed  and  only  the  non-contact  authors 
are  searched. 

(4)  View  the  Article  (ArtlView.exe).  Called  by  the  hypertext  link  from 
either  table  of  article  titles  generated,  this  program  displays  the  selected  article's  data  in 
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a  form.  Using  the  article  record  number  passed  via  the  hypertext  link,  the  article  data  is 
retrieved  and  presented  in  an  HTML  form.  The  user  may  then  edit  any  information 
displayed.  The  submit  button  on  this  form  calls  ArtlPostexe. 

(5)  Post  the  Article  (ArtlPostexe).  Called  from  ArtIView.exe,  article 
data  is  retrieved  from  the  form  and  placed  in  the  Submissi.db  table,  overwriting 
previous  data.  A  confirmation  page  is  sent  with  the  option  to  "Edit  another  Article." 

e.         Edit  Sessions 

Sessions  for  identifying  topic  areas  are  maintained  in  the  Session.db  table. 
Although  sessions  remain  constant  for  a  given  conference,  they  may  change  from  year  to 
year.  Through  this  function,  sessions  may  be  modified,  added  or  deleted. 

1 )  Choose  Session  (Sessions.exe) 

2)  Edit  a  Session  (SessEdit.exe) 

3)  Edit  Confirmation  (SesEdit2.exe) 

4)  Add  a  Session  (SessAdd.exe) 

5)  Addition  Confirmation  (SessAdd2.exe) 

6)  Delete  Session(s)  (SessDel.exe) 

7)  Verification  of  Delete  (SessDel2.exe) 

8)  Deletion  Confirmation  (SessDel3.exe) 
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(1)  Choose  Session  (Sessions.exe).  A  table  of  all  the  current  sessions  is 
displayed  (Fig.  4-31).  Each  session  identifier  is  a  hypertext  link  to  SessEdit.exe  with  the 
session  number.  Options  are  available  to  "Add  a  Session"  and  "Delete  a  Session." 

(2)  Edit  a  Session  (SessEdit.exe).  The  current  session  name  is  displayed 
in  a  form  (Fig.  4-32).  Changes  made  in  the  form  are  submitted  to  SesEdit2.exe.  The 
option  to  exit  without  changing  also  exists. 

(3)  Edit  Confirmation  (SesEdit2.exe).  This  program  retrieves  the  form 
input  from  SessEdit.exe  and  posts  the  change  to  the  Session.db  table.  An  FTTML 
confirmation  page  is  then  sent  with  the  options  to  edit  more  sessions  or  return  to  the 
main  admin  menu  page. 

(4)  Add  a  Session  (SessAdd.exe).  Called  from  Sessions.exe,  four  boxes 
are  available  for  entering  new  session  names  (Fig.  4-33).  Any  number  of  the  boxes  may 
be  used.  Submitting  this  form  calls  SessAdd2.exe. 

(5)  Addition  Confirmation  (SessAdd2.exe).  Form  data  is  retrieved  from 
SessAdd.exe  and  non-empty  fields  are  added  to  the  Session.db  table.  To  ensure  proper 
ordering,  sessions  are  placed  in  alphabetical  order.  An  FTTML  confirmation  page  is  sent 
with  the  options  to  "Edit  more  Sessions"  or  "Return  to  the  main  admin  page". 
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(6)  Delete  Session(s)  (SessDel.exe).  An  HTML  table  is  presented 
containing  all  session  numbers  and  names  (Fig.  4-34).  This  presentation  includes  the 
session  number  to  make  it  visually  distinct  from  the  "edit  session"  table.  The  session 
number  is  a  hypertext  link  which  calls  SessDeI2.exe  with  the  record  number.  The  option 
to  "Delete  all  Sessions"  is  also  available  in  the  event  the  system  administrator  wishes  to 
create  a  session  list  from  scratch.  Selecting  "Delete  all  Sessions"  will  set  a  hidden  flag 
to  "DeleteAll"  and  is  passed  to  SessDel2.exe. 

(7)  Verification  of  Delete  (SessDel2.exe).  This  program  retrieves  the 
hidden  flag  and  the  session  number  query  string.  If  "DeleteAll"  is  not  found,  the  selected 
session  is  deleted  and  a  confirmation  HTML  page  sent.  Otherwise,  an  HTML  page  is 
sent  to  confirm  that  the  user  wants  to  delete  all  of  the  sessions.  Options  available 
through  form  buttons  are:  1)  "Yes  -  DELETE  ALL  Sessions  in  the  Database"  or  2) 
"Cancel  -  do  NOT  delete." 

(8)  Deletion  Confirmation  (SessDeI3.exe).  Appropriate  sessions  in  the 
Session.db  table  are  deleted  and  an  HTML  confirmation  page  sent  with  the  option  to 
"Edit  more  Sessions". 

/  Edit  Keywords 

Keywords  for  identifying  topic  areas  are  maintained  in  the  Keyword. db 
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table.  Although  they  remain  constant  for  a  given  conference,  they  may  change  from  year 
to  year.  Eight  executable  programs  implement  this  function  which  enable  the  user  to 
modify,  add,  or  delete  keywords: 

1 )  Choose  a  Keyword  (Keywords.exe), 

2)  Edit  a  Keyword  (KeyEdit.exe), 

3)  Edit  Confirmation  (KeyEdit2.exe), 

4)  Add  a  Keyword  (KeyAdd.exe), 

5)  Addition  Confirmation  (KeyAdd2.exe), 

6)  Delete  Keyword(s)  (KeyDel.exe), 

7)  Verification  of  Delete  (KeyDel2.exe), 

8)  Deletion  Confirmation  (KeyDel3.exe). 

(1)  Choose  a  Keyword  (Keywords.exe).  A  table  of  all  the  current 
keywords  is  displayed  (Fig.  4-35).  Each  Keyword  is  a  hypertext  link  to  KeyEdit.exe 
with  the  keyword  record  number.  Options  are  also  available  to  "Add  a  Keyword"  and 
"Delete  a  Keyword." 

(2)  Edit  a  Keyword  (KeyEdit.exe).  The  selected  keyword  is  displayed  in 
an  HTML  form  (Fig.  4-36).  Changes  are  made  in  the  form  and  submitted  to 
KeyEdit2.exe.  There  is  also  option  to  exit  without  changing. 


49 


(3)  Edit  Confirmation  (KeyEdit2.exe).  This  executable  program 
retrieves  the  form  input  from  KeyEditexe  and  posts  the  change  to  the  Keyword.db 
table.  An  HTML  confirmation  page  is  sent  with  the  options  to  "Edit  more  Keywords"  or 
"Return  to  the  main  admin  page". 

(4)  Add  a  Keyword  (KeyAdd.exe).  Called  from  Keywords.exe,  four 
HTML  form  boxes  are  available  for  entering  new  keywords  (Fig.  4-37).  None  of  the 
boxes  require  entries.  Submitting  calls  KeyAdd2.exe. 

(5)  Addition  Confirmation  (KeyAdd2.exe).  Form  data  is  retrieved  from 
KeyAdd.exe  and  non-empty  fields  are  added  to  the  Keywords.db  table.  An  HTML 
confirmation  page  is  sent  with  the  options  to  "Edit  more  Keywords"  or  "Return  to  the 
main  admin  page". 

(6)  Delete  Keyword(s)  (KeyDel.exe).  A  table  is  presented  which 
contains  the  keyword  record  number  and  name  (Fig.  4-38).  This  presentation  includes 
the  record  number  to  make  it  visually  distinct  from  the  "edit  keyword"  table.  The 
keyword  record  number  is  a  hypertext  link  which  calls  KeyDel2.exe.  The  option  to 
"Delete  all  Keywords"  is  also  available  in  the  event  the  System  Administrator  wishes  to 
create  a  keyword  list  from  scratch.  If  "Delete  all  Keywords"  is  selected,  a  hidden  flag  is 
set  to  "DeleteAll"  and  passed  to  KeyDel2.exe. 
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(7)  Verification  of  Delete  (KeyDeI2.exe).  This  program  checks  the 
hidden  flag  and  retrieves  the  keyword  record  number.  If  "DeleteAll"  is  not  found,  the 
single  keyword  is  deleted  and  a  confirmation  HTML  page  sent.  Otherwise,  an  HTML 
page  is  sent  to  confirm  that  the  user  wants  to  delete  all  of  the  keywords.  Options  are 
available  through  form  buttons  to  "Yes  -  DELETE  ALL  Keywords  in  the  Database"  or 
"Cancel -do  NOT  delete." 

(8)  Deletion  Confirmation  (KeyDel3.exe).  Each  keyword  in  the 
Keyword.db  table  is  deleted  and  an  HTML  confirmation  page  sent  with  options  to  "Edit 
more  Keywords"  or  "Return  to  the  Main  Admin  Page". 

g.         Invite  Articles 

Articles  invited  by  the  Session  Chairs  are  not  subject  to  the  normal  review 
and  selection  process.  Modifying  the  Submissi.db  table  to  reflect  this  status  is  done  via 
this  function.  Session  Chairs  will  provide  the  system  administrator  with  a  list  of  invited 
article  titles.  The  required  programs  are: 

1)  Display  Titles  (Invite.exe) 

2)  Invite  Titles  (Invite2.exe). 

(1)  Display  Titles  (Invitcexe).  This  program  displays  a  form  with  a  list 
of  all  the  article  titles  in  the  Submissi.db  table  with  a  check  box  (Fig.  4-39).  A  drop- 
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down  option  box  allows  the  administrator  to  either  "Invite"  or  "NOT  Invite"  the  selected 
titles. 

To  mark  articles  invited,  "Invited"  is  selected  on  the  drop-down  box  and  the 
title(s)  which  are  invited  are  checked.  Submitting  this  form  calls  Invite2.exe.  It  is  not 
necessary  to  mark  articles  as  "NOT  Invited"  unless  they  were  previously  marked 
"Invited"  and  need  to  be  changed. 

(2)  Invite  Titles(Invite2.exe).  Called  by  Invitcexe,  Invite2.exe  modifies 
the  "Invited"  field  on  selected  articles  in  the  Submissi.db  table.  It  first  takes  the  passed 
query  string  and  parses  it  to  determine  the  action  (Invite  or  NOT  Invite)  and  the  article 
numbers  to  be  changed.  Then,  each  article  is  located  and  changed.  A  confirmation  page 
is  sent  with  the  option  to  "Invite  more  Articles". 

h.         Accept  /  Reject  Articles 

After  the  review  process  is  complete,  articles  must  be  annotated  as  either 
"accepted"  or  "rejected."  This  segment  allows  the  system  administrator  to  quickly  mark 
the  Submissi.db  table  appropriately.  Changes  may  be  made  to  one  article,  to  several 
articles,  or  to  all  of  the  articles. 

1 )  Select  Articles  (Choose.exe) 

2)  Accept  /  Reject  Articles  (Choose2.exe) 
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(1)  Select  Articles  (Chooscexe).  This  program  displays  a  form  with  a  list 
of  all  the  article  titles  in  the  Submissi.db  table  with  a  check  box  (Fig.  4-40).  A  drop- 
down option  box  allows  the  administrator  to  either  "accept,"  "accept  then  reject," 
"reject,"  or  "reject  then  accept"  the  selected  titles. 

The  multiple  choices  provided  will  simplify  this  process  because  the 
Administrator  will  not  have  to  specifically  mark  every  article.  When  a  list  exists  with 
more  rejections  than  acceptances,  checking  off  accepted  articles  and  the  "accept  then 
reject"  option  will  set  the  selected  titles  as  accepted  and  automatically  set  the  rest  as 
rejected.  If  there  are  fewer  rejected  articles  than  accepted,  then  the  rejected  article  titles 
are  selected  and  "reject  then  accept"  will  reject  those  and  accept  the  rest. 

To  mark  articles  individually,  either  the  "accept"  or  "reject"  option  is 
selected  on  the  drop-down  box  and  the  title(s)  checked  off  are  modified  as  appropriate. 
"Accept"  or  "reject"  will  only  modify  the  selected  articles  and  will  not  affect  other 
articles.  Submitting  this  form  calls  Choose2.exe. 

(2)  Accept  /  Reject  Articles(Choose2.exe).  The  query  string  is  retrieved 
and  parsed  to  obtain  the  action  and  the  titles.  A  case  statement  uses  the  action  passed  to 
modify  the  necessary  article  fields  in  the  SUBMISSION  Table.  Titles  are  placed  on  a 
string  list  and  individually  processes.  When  the  action  is  to  "accept  then  reject"  or 
"reject  then  accept,"  then  all  articles  are  set  to  the  second  action  and  then  the  string  list  is 
processed  to  change  the  selected  articles. 
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L  Assign  Articles  to  Sessions 

Once  articles  are  accepted,  they  must  be  assigned  to  a  session  and  ordered 
within  a  session.  The  following  programs  assign  articles  and  order  them  within  a 
session. 

1 )  Assign  Articles  to  Session  (Assign.exe) 

2)  Order  Articles  in  Session  (Assign2.exe) 

3)  Confirmation  (Assign3.exe) 

(1)  Assign  Articles  (Assign.exe).  This  program  displays  a  form  with  a 
list  of  all  the  article  titles  in  the  Submissi.db  table  with  a  check  box  (Fig.  4-41).  A  drop- 
down option  box  allows  the  administrator  to  select  the  session  name.  The  session  is 
selected  and  then  each  of  the  titles  which  belong  in  that  session  are  checked.  Submitting 
the  form  calls  Assign2.exe. 

(2)  Order  Articles  (Assign2.exe).  The  query  string  is  retrieved  and  parsed 
to  obtain  the  session  record  number  and  the  list  of  titles.  Article  titles  assigned  to  the 
selected  session  are  displayed  next  to  a  form  box  which  is  used  to  assign  an  order  to  each 
article.  Each  box  has  a  default  number  inserted  when  it  is  displayed.  Once  the  numbers 
are  changed  to  reflect  the  proper  order  of  presentation,  this  form  is  submitted  to 
Assign3.exe. 
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(3)  Confirmation  (Assign3.exe).  This  program  retrieves  the  query  string 
and  parses  it  to  obtain  the  session  number  and  a  list  of  titles  and  a  list  of  title  orders.  The 
string  list  of  titles  and  the  string  of  title  orders  are  matched  so  that  the  first  title  goes  with 
the  first  order.  Title  record  numbers  are  used  to  locate  a  title's  record.  The  session  and 
order  are  then  recorded.  An  HTML  confirmation  page  is  sent  which  lists  the  titles  and 
their  order. 

j.  Assign  Presentation  Times  to  Articles 

Prior  to  printing  the  Abstract  Catalog,  presentation  times  must  be  included 
in  the  article  information.  Three  programs  are  used  to  assign  presentation  times  to  each 
article. 

1 )  Choose  Session  (Times.exe), 

2)  Assign  Presentation  Times  (Times2.exe), 

3)  Confirmation  (Times3.exe). 

(1)  Choose  Session  (Times.exe).  An  HTML  table  of  all  the  current 
sessions  is  displayed  (Fig.  4-42).  Each  session  identifier  is  a  hypertext  link  to 
Times2.exe  with  the  session  record  number. 

(2)  Assign  Times  (Times2.exe).  Each  article  title  assigned  to  the 
requested  session  is  retrieved  and  presented  with  its  order  number  and  an  HTML  form 
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box  to  enter  the  presentation  time  (Fig.  4-43).  After  the  times  are  entered,  the  form  is 
submitted  to  Times3.exe. 

(3)  Confirmation  (Times3.exe).  The  query  string  is  retrieved  and  parsed 
to  obtain  a  string  list  of  titles  and  times.  The  list  is  processed  such  that  the  title  number 
is  used  to  locate  the  record  and  then  the  time  is  placed  in  the  database.  An  HTML 
confirmation  page  is  sent  which  again  displays  the  titles  with  their  order  and  time. 

k.         Modify  Passwords 

System  administrator  and  reviewer  identities  and  passwords  are 
maintained  with  this  segment.  System  administrators  and  reviewers  are  referred  to  as 
"users."  Users  can  be  modified,  added,  and  deleted.  Note  that  only  system 
administrators  have  access  to  the  Administration  sub-system.  Reviewers  will  only  have 
access  to  the  Review  sub-system. 

1)  Selection  options  (PassWds.exe), 

2)  Modify  Password  (PwdMod.exe), 

3)  Add  new  user  (PwdAdd.exe), 

4)  Addition  confirmation  (PwdAdd2.exe), 

5)  Delete  a  user  (PwdDel.exe), 

6)  Deletion  confirmation  (PwdDel2.exe). 


56 


(1)  Selection  options  (PassWds.exe).  This  program  sends  an  HTML 
instruction/option  page  which  is  divided  into  sections  for  System  Administrators  and 
Reviewers  (Fig.  4-44).  A  form  is  displayed  which  allows  system  administrators  to 
modify  passwords.  New  passwords  must  be  entered  twice  for  verification.  Submitting 
this  form  calls  PwdMod.exe.  Additional  options  are  to  add  (PwdAdd.exe)  and  delete 
(PwdDel.exe)  users. 

(2)  Modify  Password  (PwdMod.exe).  This  program  retrieves  the  form 
data,  including  an  identifier  for  whether  the  ID  is  for  a  system  administrator  or  a 
reviewer.  It  then  retrieves  the  old  password  from  the  password  table  (Admin.db)  and 
authenticates  the  request.  If  the  old  password  is  valid,  and  the  two  new  passwords 
match,  then  the  old  password  is  replaced  with  the  new.  An  HTML  confirmation  page  is 
sent  with  the  option  to  "Modify  more  Passwords". 

(3)  Add  new  user  (PwdAdd.exe).  This  program  creates  an  HTML  page 
with  a  form  to  enter  a  new  system  administrator  or  reviewer  ID  and  password  (Fig.  4-45). 
The  password  must  be  entered  twice  to  be  valid.  Submitting  the  form  calls 
PwdAdd2.exe. 

(4)  Addition  confirmation  (PwdAdd2.exe).  Creates  an  FFTML  page 
which  confirms  the  new  ID  and  offers  the  option  to  "Modify  more  Passwords". 
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(5)  Delete  a  user/reviewer  (PwdDel.exe).  An  HTML  page  is  created  with 
a  form  for  entering  the  system  administrator  or  reviewer  ID  and  password  to  be  deleted 
(Fig.  4-46).  Submitting  the  form  calls  PwdDeI2.exe. 

(6)  Deletion  confirmation  (PwdDel2.exe).  This  program  creates  an 
HTML  page  which  confirms  the  deletion  and  offers  the  option  to  "Modify  more 
Passwords". 

I  Print  out  a  Session  list 

This  single  program  (P_Sess.exe)  displays  a  list  of  the  current  sessions  on 
the  screen  (Fig.4-47).  The  display  is  suitable  for  viewing  or  printing  out  using  the  Web 
browser's  print  screen  function. 

m.        Print  out  Article  data 

This  function  prints  out  information  about  an  article.  It  is  intended  for  use 
with  the  current  review  process.  This  information  will  be  printed,  along  with  the 
Extended  Summary,  and  given  to  the  reviewer.  Options  allow  information  about  a  single 
article  to  be  displayed  on  the  screen  or  printed  to  a  file. 

1 )  Select  Article  or  All  (P_Artl.exe), 

2)  Print  Article  to  screen  (P_Artl2.exe), 
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3)         Print  Articles  to  a  file  (P_Artfil.exe). 

(1)  Select  Article  or  All  (P_Artl.exe).  An  HTML  table  is  displayed 
which  contains  every  article  title  in  the  Submissi.db  table  as  a  hypertext  link  to 
P_Artl2.exe  (Fig.  4-48).  There  is  also  a  hypertext  link  which  provides  the  option  to  print 
article  information  for  every  article  to  a  file. 

(2)  Print  Article  (P_Artl2.exe).  This  program  first  looks  for  an  article 
record  number  which  would  be  passed  if  the  user  selected  an  article  title  hypertext  link. 
If  no  record  number  is  passed,  then  the  user  selected  the  "Print  to  a  file"  hypertext  link. 
In  this  case,  an  HTML  page  is  created  by  P_Artl2.exe  which  allows  the  user  to  enter  a 
name  for  file  in  which  all  article  information  will  be  stored.  Submitting  that  form  calls 
P_Artfil.exe.  IfP_ARTL2.exe  is  passed  an  article  record  number,  then  the  record  is 
located  and  retrieved.  Information  is  then  displayed  in  HTML  format  suitable  for 
printing  with  the  Web  browser's  print  screen  function  (Fig.  4-49). 

(3)  Print  Articles  to  file  (P_Artfil.exe).  This  program  retrieves  all 
articles  from  the  Submissi.db  table.  The  necessary  information  is  then  printed  to  a  file 
with  the  user  given  name.  The  file  is  always  given  an  extension  of  .art  and  is  placed  in 
the  C:\My  FilesYThesis  directory  available  for  FTP  download  by  the  system  administrator. 

n.         Print  out  Accept  /Reject  letter 
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After  review,  articles  are  marked  as  either  accepted  or  rejected.  This 
function  generates  the  accept/reject  letters  to  be  mailed  to  submittors.  Letters  can  be 
generated  for  all  the  articles  at  once  (to  a  file  only),  or  for  individual  letters  (to  the  screen 
or  to  a  file). 

1 )  Instructions  and  options  (P_Accept.exe), 

2)  Print  all  to  a  file  (P_AccAll.exe), 

3)  Select  Article  (P_Accep2.exe), 

4)  Choose  screen  or  file  (P_Accep3.exe), 

5)  Print  to  screen  (P_AccScr.exe), 

6)  Print  to  file  (P_AccFil.exe). 

(1)  Instructions  /  Options  (P_Accept.exe).  An  HTML  page  is  created 
which  describes  the  three  options  available  and  provides  links  to  each  (Fig.  4-50). 

(2)  Print  all  to  a  file  (P_AccAll.exe).  This  program  generates  an  accept 
or  reject  letter,  as  designated  by  the  "accept"  field  in  the  Submissi.db  table,  for  every 
article  in  the  database.  The  user  has  the  opportunity  to  provide  a  name  for  the  output  file. 
The  file  is  always  given  an  extension  of  .let  and  is  placed  in  the  C:\Website\Download\ 
directory  for  FTP  download  by  the  system  administrator. 

(3)  Select  Article  (P_Accep2.exe).  This  program  is  called  when  the  user 
wishes  to  print  a  single  letter.  An  FTTML  table  is  generated  with  every  title  as  a  hypertext 
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link  to  P_Accep3.exe. 

(4)  Choose  screen  or  file  (P_Accep3.exe).  The  option  is  given  to  print  a 
letter  to  either  the  screen  or  to  a  file.  The  article  record  number  is  passed  to  the 
appropriate  program  (P_AccScr.exe  or  PAccFiLexe) 

(5)  Print  to  screen  (P_AccScr.exe).  The  letter  is  generated  to  the  screen 
in  an  HTML  page.  The  page  is  suitable  for  printing  by  the  user's  Web  browser. 

(6)  Print  to  file  (P_AccFil.exe).  The  letter  is  generated  to  a  file  which  the 
user  names.  The  file  is  always  given  an  extension  of  .let  and  is  placed  in  the 
C:\Website\Download\  directory  for  FTP  download  by  the  user. 

o.         Print  Abstract  Catalog 

This  function  organizes  the  articles,  in  order  by  session,  and  prints  them  in 
the  Abstract  Catalog  format  to  a  file. 

1)  Print  Initiation  (P_AbsCatexe), 

2)  Print  Confirmation  (Prabsca3.exe). 

(1)  Print  Initiation  (P_AbsCatexe).  Utilizing  the  Sessions.db, 
Submissions.db  and  Author.db  tables,  this  function  sorts  the  articles  by  session  and 
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prints  the  appropriate  data  to  a  file  in  the  format  of  the  Abstract  Catalog.  The  user  has 
the  opportunity  to  provide  a  name  for  the  output  file  (Fig.  4-51).  The  file  is  always  given 
an  extension  of  .cat  and  is  placed  in  the  C:\Website\Download\  directory  for  FTP 
download  by  the  user. 

(2)  Print  Confirmation  (Prabsca3.exe).  Confirming  the  successful 
completion  of  the  print  job,  the  name  of  the  file  is  again  displayed  and  a  link  is  provided 
which  automatically  downloads  the  file  to  the  system  administrator's  host. 

4.         Applications 

Three  applications  are  required  to  operate  the  WWW  Conference  Information 
System,  O'Reilly  &  Associates'  WEBSITE  web  server,  FTPD  FTP  Server,  and  Borland's 
PARADOX  Relational  Database.  Following  is  a  brief  discussion  of  the  specific 
implementations  of  these  programs. 

a,  O'Reilly  &  Associates'  WEBSITE  Web  Server 

The  WEBSITE  [Ref  6]  software  is  responsible  for  maintaining  the 
connection  between  the  PC  hardware  and  the  Internet.  The  PC  has  been  assigned  a  static 
IP  address  (131.120.20.70)  and  maintains  a  continuous  Internet  connection  via  the  ECE 
department's  local  area  network.  When  an  Internet  user  accesses  the  PC's  address, 
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WEBSITE  automatically  displays  Index.html  in  the  C:\Website\Htdocs  directory. 
WEBSITE  then  displays  other  HTML  pages  or  executes  Delphi  programs  as 
implemented  within  the  system. 

All  HTML  pages  (other  than  Index.html)  are  stored  in  the 
C:\Website\Htdocs\Prototype  directory.  All  Delphi  executables  are  stored  in  the 
C:\Website\cgi-win  directory  as  required  by  WEBSITE.  The  programming  code  for  each 
executable  is  stored  in  the  C:\Delphi\Bin  directory.  The  queries  conducted  throughout 
the  system  are  initiated  by  WEBSITE  passing  standard  query  language  (SQL)  to 
Borland's  Paradox  which  maintains  the  system  database  and  is  discussed  in  part  c. 

WEBSITE  is  also  responsible  for  limiting  a  user's  access.  By  default, 
WEBSITE  limits  a  user's  access  to  no  lower  than  the  C:\Website\Htdocs  directory.  This 
protects  the  root  directory  from  unauthorized  access.  WEBSITE  also  handles  FTP 
downloads  for  users.  Any  file  that  has  the  extension  "exe"  or  ".html"  and  resides  in  a 
sub-directory  of  C:\Website\Htdocs  can  be  downloaded  by  any  Internet  user.  This  is  an 
important  consideration  when  placing  files  on  the  hard  drive.  File  uploads  (i.e.  loading 
files  to  the  PC)  are  handled  strictly  by  the  FTPD  FTP  server  discussed  in  the  next  section. 

b.  FTPD  FTP  Server 

The  FTPD  FTP  Server  is  shareware  which  handles  file  uploads  to  the 
system  [Ref  7].  It  was  installed  to  allow  users  to  upload  Extended  Summaries  which 
contain  graphics  and  equations  not  suitable  for  ASCII  text  that  FfTML  forms  are  limited 
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to.  Allowing  uploads  can  be  risky  because  anything  can  be  uploaded.  System 
administrators  are  warned  not  to  execute  any  executable  (.exe)  programs  found  in  the 
upload  directory.  Any  such  program  found  should  be  deleted  immediately.  The  only 
legitimate  uploads  are  post  script  (.ps)  Extended  Summaries. 

Security  of  uploaded  files  is  maintained  by  limiting  users  to  one  directory 
and  disabling  the  ability  to  list  directory  contents.  Thus  a  user  may  upload  his/her  own 
file,  but  will  not  be  able  to  determine  the  contents  of  the  upload  directory.  FTPD  has  not 
been  registered.  All  attempts  to  contact  the  company  have  failed.  Thus,  no  technical 
support  is  available.  This  is  an  area  for  future  improvement.  More  powerful  and  flexible 
FTP  servers  are  commercially  available. 

c.         Borland 's  PARADOX  Relational  Database 

Implementation  of  the  PARADOX  database  for  this  system  mirrored  the 
one  in  use  by  conference  administrators.  Seven  tables  were  constructed  to  maintain  data 
on  the  Contact  Authors,  Submissions,  Sessions,  Keywords,  and  system  passwords.  The 
tables  were  initially  designed  using  SALSA  [Ref.  10],  an  object-oriented  database  design 
tool.  SALSA  generated  reports  and  a  brief  description  of  the  SALSA  program  are 
included  in  Appendix  C. 

A  relational  database  stores  not  only  data,  but  also  maintains  relationships 
between  different  tables.  As  mentioned  above,  the  database  we  implemented  contains 
seven  separate  tables. 
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1 )  A uthor.db  contains  personal  information  on  each  contact  author. 

2)  Submissi.db  contains  information  about  an  author's  paper. 

3)  TempAuth.db  temporarily  stores  changes  to  an  author's  personal 
information  until  it  is  verified  by  conference  personnel. 

4)  Session.db  stores  session  mnemonics  that  indicate  when  a  particular 
session  will  occur. 

5)  Keyword.db  maintains  a  list  of  keywords  authors  may  use  to  classify  their 
papers. 

6)  Admin.db  stores  user  ID's  and  passwords  for  system  administrators. 

7)  Review.db  stores  user  ID's  and  passwords  for  article  reviewers. 

By  using  separate  tables  to  store  this  information,  an  author  can  submit  more  than 
one  paper  without  causing  problems  for  the  database.  Each  contact  author  is  given  a 
unique  identifier  that  relates  him/her  to  each  of  his/her  submissions.  Similarly,  an 
author's  submissions  are  related  to  keywords,  and  a  session  number.  Thus  queries  can 
be  performed  on  either  an  author  or  on  a  submission  and  all  information  from  any  table 
can  be  retrieved.  The  names  and  contents  of  each  database  table  is  listed  in  Appendix  C. 

5.         System  Web  Pages 

The  following  pages  are  screen  captures  of  the  web  pages  created  by  the  Asilomar 
Conference  System.  The  pages  were  viewed  with  Netscape  Navigator  Gold  3.0  [Ref.  8] 
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and  captured  with  Corel  Draw  Capture. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Registration  Information 


Authors  wishing  to  submit  an  article  to  the  Asilomar  Conference  on  Signals,  Systems,  &  Computers  may  do 
so  via  normal  mail  or  via  online  submission  usmg  these  pages 

I  want  to  know  how  to  submit  articles  Manually  via  the  U.  S  Mail 

I  want  to  know  how  to  submit  articles  On-line  via  the  Internet 

I  am  ready  to  submit  an  Article. 


Return  to  the  Asilomar  Conference  On-line  Submission  Page 


'Questions  regarding  this  site  may  be  sent  to 
LT Mike  Chaijant  and  LT Kevin  Coats  at  ?mk8c®yg2S.nayy.iml) 


jrf^Sli     Document  Done 


Figure  4-4.  Introl0.htm. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 

Electronic  Submission  Information 

Authors  wishing  to  submit  an  article  to  the  Asilomar  Conference  on  Signals,  Systems.  &  Computers  via 
on-line  submission  not  only  save  the  cost  of  an  envelope  and  a  stamp,  they  help  us  keep  down  the  cost  of  the 
conference  by  reducing  the  administrative  burden  on  our  staff 

What  capabilities  do  I  need  to  submit  my  Article  on-line? 

What  are  the  procedures  to  submit  my  Article  on-line? 

I  am  ready  to  submit  my  article  on-line! 


What  capabilities  do  I  need  to  submit  my  Article  on-line? 

Authors  washing  to  submit  an  article  on-line  need  the  following  capabilities: 

1     Internet  access; 

2.    Forms  capable  "Web  Browser  (HTML  3  or  better), 

3     Fir  upload  software 

□  Download  "Windows  3.x  CIS-bit':!  t'i't'  software  3STO"W! 

□  Download  "Windows  95  or  rTT  (32-brtl  FTP  software  NOW! 


What  are  the  procedures  to  submit  ray  Article  on-line? 

Submitting  an  article  on-line  to  the  Conference  is  done  in  the  following  steps. 

1  Ensure  you  have  FTP  software,  download  it  above  if  necessary. 

2  Select  "Submit  an  article"  at  the  bottom  of  this  page   The  forms  presented  will  allow  you  to: 

□  Ensure  that  the  information  about  you  is  accurate  in  our  database:  and 

□  Submit  the  information  about  your  paper  (Title.  Keywords,  Abstract,  and  other  Authors). 

Nate.-  if  you  have  already  received,  a  registration  number*  user  ID  and  password,  the  above 
steps  should  be  complete. 

3.    Finally,  submit  an  E:;tended  Summary  for  your  paper  via  FTP. 

□  Extended  summaries  must  be  in  Post  Script  (.PS)  or  ASCII  ( txt)  format 

□  The  filename  of  your  summary  should  be  your  registration  number,  eg   "  1 0  LPS"  would  be  a 
valid  filename. 


I'm  ready  to  submit  my  Article  on-line? 


Return  to  the  Asilomar  Conference  On-line?  Submission  Pa^e 
-£^~g|)      Document:  Done 
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Figure  4-5.  Infol2.htm. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 

What  is  the  Extended  Summary? 

An  extended  summary  is  a  concise  summary  of  the  significance  of  the  submitted  paper  It's  length  should  be 
500  to  1000  words  and  can  include  figures.  The  estended  summary  will  be  used  to  evaluate  the  paper  for 
significance  and  originality. 

For  electronic  submission,  the  extended  summary  should  be  saved  m  Postscript  Format  and  should  include 
the  Paper  Title  and  the  Author's  name 


.. 


Return  to  the  Asilomar  Conference  Qn-lme  Submission  Page 


rf*Sil     Document  Done 
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Figure  4-6.  Extsumm.htm. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 

Manual  Submission  Information 

Authors  wishing  to  submit  an  article  to  the  Asilomar  Conference  on  Signals  Systems.  &  Computers  via  mail 
must  submitfour  copies  of  the  abstract  (50  to  100  words)  and  four  copies  of  the  extended  summary  (500  to 
1000  words  plus  figures  and  tables).  Submissions  must  include: 

•  Paper  Information:  title,  each  author's  name  and  affiliation,  and  the  technical  area(s)  with  number(s) 
from  the  hst  provided  on  the  "Call  for  Papers  " 

•  Point  of  Contact  information:  name,  full  address,  telephone/fax  numbers  and  e-mail  address. 

•  Abstract  on  a  separate  page,  a  camera  ready  copy  of  the  abstract  headed  by  the  title,  author's  names 
and  affiliations  for  printing  in  an  Abstract  Book  which  -will  be  available  at  the  Conference.  The  typo 
used  must  be  clear  and  readily  legible,  and  all  information  (including  title,  author's  names  and  affiliations) 
must  fit  -within  a  2  75"  high  by  6  5"  wide  format  for  printing  in  the  Abstract  Book 

Submissions  should  be  sent  to: 

Asilomar  Conference  Technical  Program  Chairman 
c/o  ECE  Department.  Code  EC 
Naval  Postgraduate  School 
833  Dyer  Road,  Room  437 
Monterey,  CA  93943-5121 


In  the  future 

Please  consider  submitting  your  articles  via  our  on-line  submission  process   Not  only  does  it  save  you  the  cost 
of  an  envelope  and  a  stamp,  it  helps  us  keep  the  cost  of  the  conference  lower  by  reducing  the  administrative 
burden  on  our  staff 


Return  to  the  Asilomar  Conference  On-line  Submission  Page 
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Figure  4-7.  Manual  1 1  .htm. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 

Contact  Author  Information 

First  we  need  to  get  some  information  about  the  "contact  author  "  Remember  that  if  the  paper  has  only  one 
author,  the  "contact  author"  is  the  author  If  there  are  multiple  authors,  the  "contact  author"  is  the  one  who  wiH 
be  the  point  of  contact  for  the  purpose  of  this  conference 

To  determine  whether  you  are  currently  in  our  database,  please  enter  your  name  belowr 


First  Name: 


Last  iName:  j 
submit  outhor  Clearihis  form 


Middle  Initial:  f 


Return  to  the  Asilomar  Conference  On-line  Submission  Page 


_£'-=2JJ     Docunent  Done 
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Figure  4-8.  Searchl3.htm. 
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Add  New  Author  Information 

Your  name  was  not  found  in  our  current  "database.  Please  provide  the  following  information  so  we  will  be  able 
to  contact  you 


first  Name:  (Michael 
Initial:  f 


Last  Name:  jchaifanc 


Honorific  Title: 


Institution:  j 

Department:  ] 
Mail  Stop:  j" 


Street  address: 

City:! 


State: 


Zip  Code: 


Country:    USA 


Telephone  number  (with  Area/Country  codes): 
Fax  number  (with  Area/Conntry  codes):  1 
E-mail: 


Submit  New  Information 


Clear  this  form 


Return  to  the  Asilomar  Conference  On-line  Submission  Page 
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Figure  4-9.  D13.exe:  No  Author  Found  in  Database. 
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Edit  Author  Information 

We  have  located  your  record  in  the  database  Please  ensure  that  your  record  is  up-to-date  by  reviewing  the 
information  below  and  making  any  changes  that  are  necessary  For  your  protection,  changes  are  not  made  a 
part  of  the  permanent  record  until  verified  by  our  staff. 


First  Name:  JHonioue 
Initial:  Jp" 


Last  Name:    Porgucs 


Middle 


Honorific  Titie:JDr, 


Institution:  jNavol    Postgraduate    School 


Department:  JDept.     of    Electrical    £    Computer    Eng. 
Mail  Stop:  Jcoae   EC.ra 


Street  address: 

City:  JHonterey  State:  Jca 

Zip  Code:  J93943-5121   Country:  Jttsa. 

Telephone  number  (with  Area/Country  codes):] 
Fax  Dumber  (with.  Area/Country  codes):  J 

E-mail:  jforoucsBecr.nps.  navy.mil 

The  database  has  found  a  unique  entry  based  on,  the  first  and  last  name  you  submitted  If  you  believe  this  entry 
refers  to  smother  person,  then  you  have  two  choices 

•   If  you  might  have  used  another  name,  then  Go  back  and  re- submit  your  query,  or 
"   IF  this  is  your  name  but  this  is  not  your  record,  then  Add  your  name  to  our  records 


IF  this  entry  does  refer  to  you,  please  review  the  information  and  update  it  as  necessary,  then  click  on  "Submit 
Information"  below 


Submit  hnformetiori 


Reset  to  Original  information 


NO  changes  necessary- ALL  data  is  correct! 


_Jtf.*a!    '.Netscape 


E3if 


jd 


Figure  4-10.  D13.exe:  One  Author  Found. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Add  New  Author  Information 

Your  name  was  not  found  in  oxtr  current  database.  Please  provide  the  following  information  so  we  will  be  able 
to  contact  you. 


first  Name: 
Initial:  j 


Last  Name: 


Middle 


Honorific  Title:] 


Institution:  j 
Department 
Mail  Stop:  [~ 


Street  address: 
State:  J~" 


City:  [ 


Zip  Code:  j  Country:  JUSA 

Telephone  number  (with  Area/Country  codes): 


Fax  number  (with  Area/Country  codes): 
E-mail  | 


Submit  New Irrtatmotion  j  d&tst  this  form         j 


■:.:"■. 


Return  to  the  Asilomar  Conference  On-Lne  Submission  Page 


J^rSa?    Ocscumsnt  Qone 


53?     id 


Figure  4-11.  D13.exe:  Submitting  Author's  Name  Matches  Another  in  the  Database. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Multiple  Matches  Found 

Numb  er  last  Name  First  Name  MI  Title  j      Institution  Name                 D  epartuent  Name 

362  jF  argue  s        Monique 

Dept.  of  Electrical  &  Computer 
P     Dr.     iNaval  Postgraduate  School  Eng. 

709  iF argues        Monique 

Dept.  of  Electrical  &  Computer 
P     Dr     jNaval  Postgraduate  School  Eng. 

The  database  has  found  more  than  one  entry  that  matches  your  first  and  last  name.  IFyour  name  is  on  the  list 
then  click  on  the  "Author  Number"  which  is  to  the  right  of  your  name. 

If  you  believe  your  record  may  be  under  another  name,  you  may  Resubmit  your  name, 

If  this  is  your  name  but  your  record  does  not  appear  here,  you  may  Add  your  name  to  our  records. 


Return  to  the  Asilomar  Conference  On-Hne  Submission  Page 


jrf*2lH    Document  Done 


53-? 


Figure  4-12.  D13.exe:  Multiple  Matches  Found  in  Database. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Tbank  you  for  your  input  Dr.  Monique  Fargoes  Your  information  has  been,  stored  in  order  to  update  our 
records.  To  protect  your  record,  changes  will  not  become  permanent  until  verified  by  our  staff 

Continue  v«th  the  Submission  Ptocess 


Return  to  the  Asdomar  Conference  On-line  Sribnugaga  Page 


-Ci^Sil    ■document  Oorw 


13? 


Figure  4-13.  Information  Page  Generated  by  Addl32.exe  or  Editl32.exe. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


New  Article  Submission 

Please  provide  the  foILowing  mformation  about  the  article. 
Title: 


JThesis    example 


Keyword  #1;  (Image  &  Multidimensional  signal  processing 


Keyword  #2:  jSpeach  &  Communications 


"3 


Keyword  #3:  (Higher-order  Statistics 
Abstract: 


PLeass  enter  your  absttact  here  toy  either 
typing  oi  copying  over  this  ten. 

Keneinber  to  X  limit  the  length  of  your  abstract  to  lOO  vord3 . 
HTML  will  allo»«  you  to  enter  more  than  that  in  this  box, 
BUT  only  the  Heat  lOO  tjords  will  be  retained. 

li  typing  your  next,  you  may  want  to  use  carriage  returns  to  keep 

Che  text  within  the  vlenlfle  area  of  this  box.        It    cuctlno  and.  pasclna> 

the  display  in  this  box  does  not  matter. 

«J [> 


•^V-ffll      Document  Dong 
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jd 


Figure  4-14.  D_Submit.exe  Part  1. 
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the    display    in    chis    box    does    not    ntactcr. 
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Other  Author  Information 

If  there  are  multiple  authors  for  this  article,  please  enter  the  following  information.  la  the  boxes  marked  "Name  Position" 
please  enter  the  position  in  which  you  wash  each  author's  name  to  appear  when  the  abslract  is  printed 

Position  of  the  Contact  Author's  Name;  n      -,j 


Other  Authors 


Name  Position:  |2     JJ  First  Name: 
Last  Name:  ] 
Institntion:  j 


Middle  Initial:  f~ 


Name  Position:  |3     ~\  First  Name: 

Last  Name:   j 
Institntion:  j 


Middle  Initial:  [ 


Name  Position:  p    _2j  First  Name: 
Last  Name:  j 
Institution:  I 


Middle  Initial:  j 


Name  Position:  J5     jj  First  Name: 

Last  Name:  j 
Institntion:  j 


Middle  Initial:  f 


Name  Position:  JS    ZJ  First  Name: 
Last  Name:  j 
Institution:  I 


Middle  Initial:  j 


Submit  Paper  Irrforrrtoticri  j  CteartMstorm 


Return  to  the  Asilomar  Conference  Horn;  Page 


Tl?&i\      Document  Dons 


S3-? 


Figure  4-15.  D_Submit.exe  Part  2. 


78 


L"  Netscape  -  lAsiloniii  Signal;;,  Systems ,  and  Computer*  J 


Die     £dlt     3Dew     Qfl     Bookmarks     Options     ftfrectaiy     jfljtndow     fcjelp 


T]o]v}| 


racic 


Horns 


tdlt 


Reload 


Open 


ffrtt 


«nd 


gjjfi    LocatiOrt-  JhttpVyi  31.1 20.20.7CVc<ii-«in/d_paper.eHe 
WHafgN—i  j  What's  Coot  |     Handbook    j    Net  Search    j   Met  Directory  {     Software    ( 


"3 


Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Thank  you  for  your  mput  Dr.  Moruque  F  argues.  Please  confirm  that  the  following  information  is  correct  before 
it  is  added  to  our  records.  This  information,  can  not  be  changed  after  it  is  submitted  this  time! 


Title: 


[Thesis    example 

Keyword #1:  linkage    £    Hultidimensiorial   signal   processing 

Keyword  #2:  (Speech    £    Communications 

Keyword #3:  jHigher-order   Statistics 

Abstract: 


Please  enter  youc  abstract  here  by  either 
typing  or  copying  over  this  texc. 

Remember  to  limit  the  length  ox  your  abstract  to  ICO  words. 
HTML  wall  allow  you  to  enter  more  than  that  in  this  box, 
BUT  only  the  first  1G0  words  will  be  retained. 

If  typing  your  next,  you  may  want  to  use  carriage  returns  to  keep 

the  text  within  the  viewing  area  of  this  box.   If  cutting  and  pasting, 

the  display  an  this  box  does  not  matter. 
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.J'/'Sl     Docwnent  CHmv 
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Figure  4-16.  Dpaper.exe  Part  1. 
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Other  Author  Information 

If  there  are  multiple  authors  For  this  article,  please  enter  the  following  information  It  is  assumed  that  you  are 
the  "Contact  Autohor"  for  this  paper  In  the  boxes  marked  "Name  Position"  please  enter  the  position  in  which 
you  wish;  each  authors  name  to  appear  when  the  abstracts  are  printed. 
Position  of  YOUR  Name:  f~ 


Name  Position:  j        First  Name: 
Last  Name:  ] 
Institution:  1 


Middle  Initial:  j~ 


Name  Position:  j         First  Name: 

y^m.mn  mi  .■■■linii.iinniiiiiimn  mil    ■■■»■■■  n«  ■ 

Last  Name:  j 
Institution: 


Middle  Initial:  f 


Name  Position:  |        First  Name: 
Last  Name:  j 
Institution:  j 


Middle  Initial:  f 


Name  Position:  j       First  Name: 
Last  Name:  j 
Institution:  j 

Name  Position:  ]        First  Name: 
Last  Name:  j 
Institution:  f 


Middle  Initial:  f 


Middle  Initial:  f" 


Confirm  Submission  frrformetiofi 


Cteartfitsfami 


Return  to  the  Asilomar  Conference  On-line  Submission  Paae 


'■rV.S'jl     ;£>ocumenb  Dene 


Q? 


Figure  4-17.  Dpaper.exe  Part  2. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


Confirm  New  Article  Submission 

Thank  you  Dr.  Monique  F  argues 

Your  article  information  has  been  added  to  the  conference  records.  Your  Registration  Number  is:  335 
Be  sure  that  you  write  this  number  down  or  prmt  out  a  copy  of  this  page    You  will  need  this  number  ■when 
you  send  in  your  extended  summary 

The  filename  for  your  extended  summary  will  be  the  registration  number! 

For  example,  if  your  Registration  Number  is  1 5.  the  file  which  contains  your  summary  should  be  named  15.ps 
if  it's  a  postscript  file,  or  15.txt  if  it's  an  ASCII  file. 

You  must  now  FTP  your  extended  summary.  You  may  use  your  own  FTP  software  or  the  program  you 
down-loaded  from  the  Procedures  Page.  Be  sure  you  include  the  Title  of  the  Article  and  the  Author  names  in 
the  text  of  the  summary 

Log  on  to  our  FTP  Server  using  the  following  information: 
server  address   131.120  JO. 70 
userED  guest 
password:  asilconf 

Thank  you  for  using  our  online  submission  process.  We  hope  that  you  found  it  helpful  Please  send  any 
comments  to  rnikec@nps.narsy.mil 


Return  to  the  Asilomar  Conference  On-line  Submission  Pa&c 
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Figure  4-18.  D2paper.exe. 
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Asilomar  Conference  on 
Signals,  Systems,  &  Computers 


System  Administration 


This  page  is  intended  for  the  exclusive  use  of  the  System  Administrator  for  the  Asilomar  Conference  on  Signals,  Systems, 
&  Computers 


User  name:  j  Password:  I 

Submit  Password  Cleer  Values 


Return  to  the  Asilomar  Conference  On-lmfe  Submission  Page 


j/aal      Document  Done 


jd 


Q? 


Figure  4-19.  Admin20.htm. 
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Asilomar  Conference  System  Administration 

Database  Functions 

Review  Changes  to  Author  Information 


gfeai      Document  Don© 


E  d  rt  Autho  r  Info  rrrwrt  o  n 

Edit  Article  data 

Edit  Sessions 

Edit  Keywords 

Invite  Artides 

Accept/  Reject  Artides 

Assign  Artides  to  Sessions 

Assign  Presentation  Times  to  Artides 

Modrty  Passwords 

Print  Functions 

Print  Session  list 

Print  Article  Inform ation 

Print  Artide  AccepVRejed  notice 


Print  Abstrad  Catalog 


Return  to  the  Asilomar  Conference  On-line  Submission  T'a&e 
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Figure  4-20.  Aminpwd.exe. 
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Asilomar  Conference  System  Administration 


There  are  1  records  to  remew 


Edit  AT.™,!.™.        LaSt 

Number  Name 


First 


Name 

147  709  Fargues      Momque      P 


Initial  Honorific         Institution 


Dr. 


Naval 

Postgraduate 

School 


Department        Home  City 

Dept  of  Electrical 


&  Computer  Eng. 


Monterey 


Return  to  the  System  Admin  Options  page 


•xK'li      Documant  Done 


Q? 


Figure  4-2 1 .  Auchangs.  exe. 


84 


yf,  Netscape     |Asilomoi  Signals    'Jy:tems.  and  Cornpukcis] 


£ite    £0*    iJtew    Ho    Bookmarks    JJphom    fiirectoi}>    W.**iow    tide 


rFR 


8»ok 


Horn* 


e<f*t 


BVtoad 


Print 


tit 

rtnd 


^} .  Location-  ] rwp://1 31. 120.20  70/c^«MiWiewChng_axe?1 47 
What's  New?   |     What's  Coor?    j     Destinations    j    Net  Search  ]     rV»p)»    j    Software  | 


Compare  Author  Information 


Here  is  the  old  record  along  wife  fee  submitted  changes. 


OLD  First  Name:  JMonique 


NEW  First  Name:  JMonique 


OLD  Last  Name:  JForgues 


NEW  Last  Name:  |Fargues 

OLD  Middle  Initial:  F~ 
NEW  Middle  Initial:  F 


OLD  HonoriTir  lMe:JDr~~ 
NEW  Honorific  Tide:fDT 


OLD  Institution:  jNerval  Postgraduate  School 


NEW  Institution:  |Naval  Postgraduate  School 


OLD  Department:  jDept.  of  Electrical  &  Computer  Eng. 


NEW  Department:  JDept  of  Electrical  8.  Computer  Eng. 


OLD  Mail  Stop:  jCode  EC  Fa 
NEW  Mail  Stop:  JCode  EC.Fa 


OLD  Street  address: 
NEW  Street  address: 


OLD  City:  jMonterey 


NEW  Citv:  iMonterey 

'J-l*ei\     Docunent  Done 


CT-? 


Jj 


Figure  4-22.  Viewchng.exe  Part  1 . 
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OLD  Street  address;  J 

NEW  Street  address:  ] 

OLD  City:  JMonterey 

MEW  City:  |Monterey 

OLD  State:  |CA 
NEW  State:  |CA 

OLD  Zip  Code:  J9  3943-51  21 

NEW  Zip  Code:  193943-6121 

OLD  Country:  JUSA 

NEW  Country:  1>JSA 

OLD  Telephone  number  (with  Area/Country  codes):  | 

408-666-2859 

NEW  Telephone  number  (with  Area/Conntry  codes): 

]40B-656-2859 

OLD  Fax  number  (with  Area/Country  codes):  J40B-656-2760 
NEW  Fax  number  (with  Area/Country  codes):  ,408-656-2760 

OLD  E-mail:  ffargues<s>ece  rips  navy.mil 

NEW  F-maiL-  JtQrgues@ece.nps  no\/y.n-iil 

Accept  Chengec 

Do  rsIOT  Modify  this  Record    Discard  Changes 

Return  to  the  System  Admirt  Options  pegc 
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Figure  4-23.  Viewchng.exe  Part  2. 
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Edit  Author  Information 

To  locale  an  author  name  in  the  database,  please  enter  the  name  below- 
First  Name:  1 


x.'Vil      Document  Done 


Last  Name: 


submit  author  name 


Middle  Initial  \ 


Clear  this  form 


Return  to  the  System  Admin  Options  page 


a? 


Figure  4-24.  Inputau.exe. 
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Asilomar  Conference  System  Administration 


No  Author  Found 


"Hie  name  Mike  D  Chalfant  was  not  found  You  may  add  information  about  tins  author  or  do  another  query 

Middle  Initial:  W 


First  Name:   Mike 


Last  Name:  JChatfant 


Honorific  Title:] 


Institution:  j 
Department:  j 
Mafl.  Stop:  f 

Street  address: 


City: 


State: 


Zip  Code:  {  Country:  | 

Telephone  number  fwith  Area/Country  codes): 


Fax  number  (with  Area/Country  codes): 
E-mail:  j~ 


Submit  New  Information 


Clear  this  form 


Return  to  the  System  Admin  Options  pege 


jrjs&l     Daeutfiwnt  Done 


Q? 


Figure  4-25.  Authsrch.exe:  No  Match  Found  in  Database. 
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Asilomar  Conference  System  Administration 


Author  Information 

"We  have  located  this  record  in  the  database.  Changes  made  here  modify  the  permanent  record 


First  Name:  jMike 


Last  Name:  |Criaifant 


Middle  Initial:  p 


Honorific  Title:  JlT 


Institution:  jNaval  Postgraduate  School 


Department:  Jlnfomation  Technology  Management 
Mail  Stop:  jcode  37 

Street  address:  j 


City:  J 
Zip  Code: 


State: 
Conntry:  ] 


Telephone  number  (with  Area/Country  codes): 
Fax  number  (with  Area/Country  codes):  j 


E-mail:  Jmdcrialfa@npsTiavy.nnil 

The  database  has  found  a  unique  entry  based  on  the  Erst  and  last  name  you  submitted  If  you  believe  this  entry  refers  to 
another  person,  then  you  have  two  choices: 

"  If  the  author  might  have  used  another  name,  then  Go  back  and  re-submit  your  query,  or 

•   If  this  is  the  correct  name  but  not  the  desired  record,  then  Add  a  new  author  name  to  our  records 


Submit  These  Changes 


Reset  to  Original  Information 


Return  to  the  System  Admin  Options  page 


•jrV-oil      Document  Dcno 


Q? 


Figure  4-26.  Authsrch.exe:  Unique  Match  Found  in  Database. 
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V.      CONCLUSION  &  RECOMMENDATIONS 

A.  CONCLUSION 

The  Asilomar  Conference  on  Signals,  Systems,  &  Computers  has  begun  the 
transition  to  the  information  age.  The  goals  of  this  thesis  were  to:  1)  analyze  the 
Asilomar  Conference  on  Signals,  Systems,  &  Computers,  2)  improve  the  article 
submission  and  review  process,  3)  develop  a  target  information  system  and,  4) 
implement  a  portion  of  the  target  system.  By  attaining  these  goals,  we  have  not  only 
streamlined  and  automated  many  of  the  processes  of  the  Asilomar  Conference,  but  also 
have  developed  a  framework  for  an  Internet  conferencing  system.  In  the  future,  it  could 
no  longer  be  necessary  for  people  to  gather  in  a  single  geographic  location  for  such  a 
conference.  By  exploiting  the  power  of  the  Internet,  registration,  reviewing,  database 
maintenance,  and  even  presenting  can  be  done  from  any  Internet  connection. 

B.  UPGRADES  TO  CURRENT  SYSTEM 

1 .         Change  the  current  Delphi  executable  programs  to  32-bit  executables. 

This  improvement  could  be  accomplished  by  upgrading  to  Delphi  2.0  and 
importing  the  current  programs  and  re-compiling  them.  Some  changes  will  need  to  be 
made  to  insure  compatibility.  The  32-bit  programs  should  run  faster  than  the  current  16- 
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bit  programs.  Switching  to  Delphi  2.0  would  also  allow  the  use  of  HREF  Tools  Corp's 
WEBHUB  [Ref.  4]  which  more  efficiently  handles  multiple  users  and  increases  the 
performance  of  the  server  software. 

Executables  created  by  either  version  1.0  or  2.0  of  Delphi  have  a  small  drawback. 
Variable  information  cannot  be  passed  between  executable  programs.  That  is,  once  a 
program  has  completed  its  function  and  calls  another  program,  all  variable  information 
(known  as  program  state)  is  lost.  WEBHUB,  which  is  only  compatible  with  Delphi  2.0, 
maintains  information  stored  in  variables  after  an  executable  is  complete.  This  is 
enhanced  by  the  fact  that  WEBHUB  can  maintain  program  state  for  multiple  users 
accessing  the  same  portion  of  the  system. 

2.         Purchasing  a  more  powerful  FTP  server. 

A  commercially  available  FTP  server  would  improve  upon  the  capability  and 
security  of  the  shareware  program  currently  in  place.  Purchased  software  would  also 
include  technical  support  not  available  with  the  unregistered  version  of  FTPD. 

C.         NEW  FEATURES 

1 .  Reviewing  articles  on-line. 

Automating  the  review  process  would  enable  reviewers  to  review  papers 
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remotely.  The  present  methodology  could  be  modified  to  include  making  the  review 
"blind"  or  even  "double-blind"  to  ensure  fairness.  Papers  could  be  reviewed  by  multiple 
reviewers  who  each  give  an  accept  or  reject  vote  along  with  whatever  comments  they 
feel  are  appropriate.  The  final  determination  could  be  made  manually,  human  tallying  of 
the  votes,  or  automatically,  with  the  system  counting  the  votes  and  only  presenting  "tie- 
votes"  for  human  determination.  The  automated  tally  system  could  even  allow  for 
weighting  the  votes  by  rating  reviewers  by  experience  or  expertise. 

2.  Scheduling. 

An  automatic  scheduling  routine  could  be  built  to  schedule  the  selected  articles 
into  sessions.  Currently  assigned  by  the  reviewers,  automating  this  process  would  relieve 
the  reviewers  of  this  tedious  task.  Computer  generated  schedules  could  be  modified  as 
necessary  by  the  System  Administrator. 

3.  Registration. 

Allowing  attendees  to  register  on-line  would  further  reduce  the  mailing  and 
administrative  costs  to  participants  and  administrators  for  the  conference.  On-line 
payment  capability  would  be  a  pre-requisite  for  this  implementation.  An  ideal  system 
would  also  coordinate  requests  for  Hotel  room,  rental  car,  and  dinner  reservations. 
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4.         Send  Mail  Utility. 

An  attempt  was  made  to  implement  a  shareware  utility  for  Delphi  called 
"SendMail"  [Ref.  9].  This  utility  would  automatically  generate  an  e-mail 
acknowledgement  once  the  user  had  completed  the  submission  process.  The 
functionality  was  initially  implemented  into  the  author  submission  sub-system,  but  was 
removed  because  the  shareware  version  halted  the  server  each  time  an  e-mail  message 
was  sent.  The  code  for  SendMail  is  still  in  place,  but  has  been  commented  out.  The 
registered  version  is  supposed  to  eliminate  this  problem.  This  feature,  which  would 
acknowledge  receipt  of  a  user's  inputs,  increases  the  reliability  of  the  data  and  the  users' 
sense  of  security  about  the  system. 
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APPENDIX  A.  DELPHI  TUTORIAL 

A.         OVERVIEW 

In  setting  up  a  Windows  based  web  server  there  are  four  basic  software 
components.  First,  web  server  software  such  as  Website  [Ref.  6],  WinHTTPD  [Ref.  5], 
or  ZBServer  [Ref.  1 1]  is  needed  to  link  a  computer  to  a  specific  Internet  address.  This 
software  will  activate  your  homepage  when  your  IP  address  is  accessed  by  a  user.  Web 
server  software  packages  vary  greatly  in  price  and  performance  but  there  are  similarities 
in  the  way  all  of  them  operate.  In  general,  once  set  up,  web  servers  will: 

1 )  assume  you  have  already  established  an  Internet  connection  with  a  valid 
IP  address 

2)  create  the  following  sub-directories  below  its  own: 

A)  cgi-bin  -  for  Windows  Perl  cgi  scripts 

B)  cgi-win  -  for  other  Windows  cgi  scripts. 

C)  cgi-dos  -  for  DOS  Perl  cgi  scripts 

D)  htdocs  -  for  HTML  (Hyper  Text  Markup  Language)  documents 

3)  assume  you  have  already  created  an  HTML  document  that  will  serve  as 
your  homepage.  This  document  usually  must  be  named  "Index.htm"  and 
placed  in  the  "htdocs"  directory. 

(Note:  "cgi"  stands  for  Common  Gateway  Interface  and  is  merely  a  protocol  that  scripts 
must  follow.  A  script  is  a  program  that  executes  on  the  web  server  and  interacts  with 
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HTML  documents.) 

The  second  software  item  you  will  need  is  HTML  documents.  These  documents 
are  written  in  plain  text  (any  text  editor  will  suffice)  and  determine  how  and  what  a  web 
browser  will  display.  There  are  many  programs  available  as  shareware  that  greatly 
simplify  the  process  of  creating  HTML  documents.  These  include:  HTMLAssist  [Ref. 
12],  and  HotDog  [Ref.  13].  HTML  allows  the  presentation  of  text,  graphics,  sounds,  and 
animation,  and  will  allow  users  to  navigate  through  your  pages  via  hypertext  links. 

It  is  possible  to  run  a  web  site  with  just  the  two  software  packages  mentioned 
above,  however  users  will  be  limited  to  merely  looking  at  pages  you  present.  If  you  want 
users  to  be  able  to  interact  with  your  pages,  you  will  need  at  least  one  more  piece  of 
software.  This  piece  is  a  scripting  language.  Languages  such  as  Perl,  Delphi,  and  Cold 
Fusion  create  executable  files  that  are  run  whenever  a  user  accesses  your  page.  These 
executables  can  perform  such  tasks  as  read  data  from  a  form,  then  create  an  entirely  new 
page  using  that  data.  We  will  see  an  example  of  this  later  in  this  tutorial. 

Although  scripting  languages  allow  users  to  interact  with  web  pages,  information 
will  be  not  be  recorded  unless  the  program  interacts  with  a  database  of  some  sort.  This  is 
the  final  software  requirement.  Newer  scripting  languages  have  built  in  database 
interactions  and  serve  as  the  go  between  for  web  pages  and  database  operations.  Data 
storage,  retrieval,  queries,  and  reports  can  all  be  performed  via  a  web  page  using  a  web 
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server,  HTML  documents,  a  scripting  language,  and  a  database. 

This  was  a  brief  overview  of  the  software  components  required  to  run  a  PC  based 
web  server.  In  general  web  server  software  is  relatively  simple  to  set  up  and  maintain. 
The  challenge  lies  in  learning  and  using  a  scripting  language  to  develop  the  types  of 
applications  that  will  be  useful  to  you  and  your  users.  The  rest  of  this  tutorial  will  focus 
on  using  Borland  Delphi  Application  Development  software  as  a  scripting  language. 
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B.         SAMPLE  APPLICATION 

The  first  step  in  designing  any  web  application  is  developing  a  general  plan  of 
how  each  page  will  look,  what  functions  it  will  perform,  and  how  the  user  will  navigate 
through  it.  The  example  I  will  use  for  this  tutorial  is  an  application  that  runs  a  game 
called  "MadLib."  In  this  game,  the  user  is  required  to  enter  in  words  of  a  specific  type, 
then  the  application  uses  those  words  in  a  pre-formatted  story  and  creates  a  new  web 
page  with  the  story  on  it.  My  plan  for  this  application  is  as  follows: 

1)  I  will  need  an  input  form  to  read  in  the  user's  words 

2)  I  can  create  that  form  using  basic  HTML  commands 

3)  I  will  need  a  CGI  script  to: 

-  get  those  words  off  the  form 

-  create  a  new  web  page  with  the  story  using  those  words 

Now  that  I  have  decided  on  what  I  need,  I  can  create  the  necessary  components. 
The  HTML  form  which  will  input  user's  words  then  load  the  CGI  application  appears 
below.  Explanatory  comments  are  incorporated  with  the  format  <  ~  comments  ~  >. 


<HTML> 
<HEAD> 
<TITLE>  Delphi  test:  A  MadLib  Input  form</TITLE> 
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<CENTERxHl>  MadLib  Input  Form</Hlx/CENTER> 

<HR> 

</HEAD> 

<BODY> 

A  "MadLib"  is  a  game  where  I  take  your  inputs  for  some  words  and  put  these  words  into 

a  story.  Depending  on  how  <EM>creative</EM>  you  are,  the  results  can  be  hilarious! 

<P> 

Please  provide  appropriate  responses  for  the  following  fields.  Have  fun!<P> 

<HR> 

<CENTER> 

<  —  ******  The  following  statement  is  the  key  statement  of  this  form.  It  loads  the  CGI 
application  "madlib.exe"  when  the  "Submit"  button  is  pressed  on  the  form.  Madlib.exe 
is  the  executable  file  that  you  will  create  in  Delphi  ******._  > 

<FORM  METHOD="POST"  ACTION="http://131. 120.20.70/cgi-win/madlib.exe"> 


<  —  The  "Table"  section  creates  an  input  table  with  visible  "Borders"  between  cells.  — 

<TABLE  BORDER> 

<TD>A  girl's  name:  </TD> 
<TDxINPUT  NAME="girl"x/TD> 
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> 


<TR> 

<TD>A  boy's  name:  </TD> 

<TDxINPUT  NAME="boy"x/TD> 

<TR> 

<TD>A  day  of  the  week:  </TD> 

<  —  The  "Select"  command  creates  a  drop  down  menu  with  each  "Option"  available  as  a 
selection  ~  > 

<TDxSELECT  NAME="day"  TYPE="TEXT"> 

<OPTION>Sunday 

<OPTION>Monday 

<OPTION>Tuesday 

<OPTION>Wednesday 

<OPTION>Thursday 

<OPTION>Friday 

<OPTION>Saturday 
</SELECT> 
</TD> 
<TR> 

<TD>A  female  relative</TD> 
<TD><SELECT  NAME="relative"  TYPE="TEXT"> 
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<OPTION>mother 

<OPTION>sister 

<OPTION>aunt 

<OPTION>grandmother 
</SELECT> 
</TD> 
<TR> 

<TD>An  adjective:  </TD> 
<TDxINPUT  NAME="adjective"x/TD> 
<TR> 

<TD>Atypeofpet:  </TD> 
<TD><INPUT  NAME="pet"x/TD> 
<TR> 

<TD>A  piece  of  furniture:  </TD> 
<TDxDSfPUT  NAME="fumiture"x/TD> 
<TR> 

<TD>A  verb  ending  in  "ing":  </TD> 
<TDxINPUT  NAME="ingverb"x/TD> 
<TR> 

<TD>Anoun:  </TD> 
<TDxINPUT  NAME="noun"x/TD> 
<TR> 
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<TD>A  time  of  day:</TD> 

<TDxSELECT  NAME="time"  TYPE="TEXT"> 

<OPTION>morning 

<OPTION>aftemoon 

<OPTION>evening 

<OPTION>night 
</SELECT> 
</TD> 
<TR> 

<TD>A  present  tense  action  verb:  </TD> 
<TDxINPUT  NAME="actverb"x/TD> 
<TR> 
</TABLE> 
<P> 

<  ~  The  following  "Input"  statements  are  standard  types.  "Submit"  sends  the  form  to  the 
URL  listed  in  the  "Form"  statement  at  the  beginning  of  the  document.  The  "Value" 
statement  applies  a  label  to  the  button.  —  > 

<INPUT  TYPE="submit"  VALUE="Run  the  MadLib"> 
<INPUT  TYPE="reset"  VALUE="Start  Over"> 
</CENTER> 
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</FORM> 

<PxHRxP> 

<A  HREF="http://131.120.20.70">Back  to  Asilomar  Home  Page</A><P> 

Questions  or  comments?  Send  mail  to:  <A  HREF- 'mailto:mikec@nps.navy.mir> 

mikec@nps.navy.mil</AxP> 

<i>This  page  last  modified  12  February  1996.</i> 

</BODY> 

</HTML> 


The  next  step  is  to  compose  the  CGI  program.  I  will  outline  the  steps  I  followed 
using  Delphi's  Integrated  Development  Environment  (IDE). 

1 )  To  load  the  DDE  click  on  the  icon  that  resembles  a  house  with  columns 

2)  You  should  be  presented  with  a  new  project,  if  not  select  "New"  from  the  "File" 
menu 

3)  On  the  Component  Palette,  click  on  the  CGI  speed  tab,  click  on  the  first  CGI 
icon,  then  click  in  the  form  window.  The  first  CGI  icon  (CGIEnvData)  loads 
general  scripting  information  to  your  form,  the  second  (CGIDB)  adds  database 
specific  components  which  will  not  be  used  in  this  example. 

4)  The  CGI  element  icon  should  have  black  boxes  in  the  corners  to  indicate  that  it  is 
selected.  Look  at  the  Object  Inspector  window.  The  'properties'  tab  should  be 
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selected.  All  of  the  default  values  are  acceptable.  If  you  click  on  the  'events'  tab 
you  should  not  see  any  available  events. 

5)  Click  on  a  blank  spot  in  the  form  window  to  deselect  the  CGI  element.  Now  let's 
look  at  the  Object  Inspector  window.  Make  sure  that  the  'properties'  tab  is 
selected.  For  this  example,  all  of  the  default  values  are  acceptable.  These  values 
and  their  meanings  are  covered  in  section  three  of  this  tutorial. 

6)  Now,  click  on  the  'events'  tab  in  the  object  inspector.  This  is  a  list  of  things  that 
will  happen  when  the  user  initiates  certain  actions.  I  want  this  application  to 
create  a  form  when  it  is  called,  so  click  on  the  box  next  to  "OnCreate".  Now  type 
a  name  for  a  procedure  which  will  create  a  form  (I  used  the  name  FormCreate  in 
the  example.  You  may  use  any  number  of  characters,  but  no  spaces).  After  you 
type  the  name,  hit  'enter',  this  will  bring  up  the  code  editor  window.  The 
following  code  will  already  have  been  added  for  you: 


unit  Unit  1; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  Cgi,  DB; 
type 

Tforml  =  class(TForm) 

CGIEnvDatal:  TCGEnvData; 
procedure  FormCreate(  Sender:  TObject); 

private 

{  Private  declarations  } 

public 

{  Public  declarations  } 

end; 
var 
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forml:  Tforml; 

implementation 
{$R  *.DFM} 

procedure  Tforml. FormCreate( Sender:  TObject); 
begin 


end; 
end. 


7)  The  cursor  will  be  after  the  begin  statement.  You  will  now  write  the  code  that 
will  a)  get  data  from  the  HTML  form,  and  b)  create  the  new  page  using  that  data. 

8)  The  first  step  is  to  declare  variables  that  the  Delphi  application  will  use.  The 
variable  declaration  section  comes  before  the  'begin'  statement  and  after  the 
'procedure'  statement.  You  will  need  to  declare  one  variable  for  each  'INPUT 
NAME'  or  'SELECT  NAME'  in  the  HTML  document.  Note:  to  avoid  confusion, 
use  different  variable  names  than  what  'NAMES'  were  in  the  HTML  document. 
Since  we  are  reading  in  text  from  the  form,  the  variables  will  be  set  to  type 
'string'.  My  variable  declarations  section  was  as  follows: 


var 
dgirl :  string; 
dboy  :  string; 
dday :  string; 
drelative  :  string; 
dadjective  :  string; 
dpet :  string; 
dfurniture  :  string; 
dingverb :  string; 
dnoun :  string; 
dtime :  string; 
dactverb  :  siring; 


9)  Now  move  the  cursor  past  the  'begin'  statement.  Since  this  procedure  uses 
CGIEnvData,  we  must  add  the  line:  with  CGIEnvDatal  do  The  '  1 '  on  the  end 
tells  Delphi  that  this  will  be  the  first  instance  of  CGIEnvData. 

1 0)  Now  on  a  new  line  type:  begin  This  starts  the  procedure  to  gather 
and  use  the  data. 

11)  After  this  second  'begin'  statement  three  statements  must  be  added  which  need 
to  be  present  in  ALL  Website  Delphi  applications.  They  are: 
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webSitelNIFilename  :=  paramstr(  1 ); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

12)  The  next  line  to  be  added:  createStdout;  tells  Website  that  an  HTML 
form  will  be  created. 

13)  The  next  line  is:  sendPrologue;  This  statement  is  accomplished 
before  the  creation  of  the  new  HTML  document  and  is  the  beginning  of  the 
section  where  you  will  gather  the  user's  data.  In  the  following  section,  you  will 
be  setting  the  Delphi  variables  you  declared  earlier,  equal  to  the  'INPUT 
NAMES'  from  the  form.  The  format  for  that  is: 

variable  :=  getSmallField(  'INPUT  NAME'  or  'SELECT  NAME' ); 

In  the  example  this  section  was  as  follows: 
dgirl  :=  getSmallField(  'girl' ); 
dboy  :=  getSmallField(  'boy' ); 
dday  :=  getSmallField(  'day' ); 
drelative  :=  getSmallField(  'relative' ); 
dadjective  :=  getSmallField(  'adjective' ); 
dpet  :=  getSmallField(  'pet' ); 
dfurniture  :=  getSmallField(  'furniture' ); 
dingverb  :=  getSmallField(  'ingverb' ); 
dnoun  :=  getSmallField(  'noun' ); 
dtime  :=  getSmallField(  'time' ); 
dactverb  :=  getSmallField(  'actverb' ); 

14)  Now  that  you  have  collected  the  data,  you  will  create  the  new  HTML  document 
via  the  'send'  command.  The  general  format  is: 

send(  '<HTML  tag>'  +  variables  +  'regular  text' ); 

Note  that  items  within  the  ( )  can  be  in  any  order,  so  long  as  proper  HTML  is  used.  The 
key  here  is  that  variables  may  be  included  and  are  indicated  by  not  being  enclosed  in 
quotes.  There  are  a  few  special  'send'  commands  such  as  'sendHR'  and  'sendTitle'  that 
should  be  self-explanatory. 

1 5)  The  following  is  a  completion  of  the  new  HTML  document: 


send(  '<HTMLxHEAD>' ); 
sendTitle(  'Here  is  your  custom-made  MadLib...' ); 
send(  '</HEADxBODY>' ); 
send('<center><hl>Here  is  your  MadLib</hl>'); 
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send(Thank  you  for  you  input.  </center>'); 

send('<p>'); 

sendHR; 

send('One '  +  dday  +  "  +  dtime  + ', '  +  dboy  +  '  woke  up  and '); 

send('found  his  *  +  drelative  +  "  +  dgirl  +  "  +  dingverb  +  ' '); 

send('her '  +  dpet  +  '  on  the  '  +  dfurniture  +  '.  Amazed  by '); 

send('this  affectionate  display, '  +  dboy  +  '  asked '); 

send( dgirl  +  ',  "Would  you  like  to '  +  dactverb  +  '  my '); 

send(dadjective  +  "  +  dnoun  +  '  when  you"re  done?'"); 

send(  '<P>' ); 

send('<p>'); 

sendHR; 

send(  '<a  href="http://131.120.20.70">' ); 

send(  'Return  to  the  Asilomar  Home  Page</A>'); 

send(  '<P>' ); 

send(  'This  application  was  created  using  Delphi  CGI  components. '); 

send(  '<P>* ); 

send(  'Generated  on  '  +  webdate(now) ); 

send(  '</BODY></HTML>* ); 

16)  Now  that  the  new  form  is  complete  you  must  tell  Website.  The  next  line  is: 
closeStdout; 

17)  Then:  end; 

18)  Now  the  applications  opened  just  after  the  'begin'  statement  must  be  closed  via 
the  command:    closeApp(  application  ); 

19)  Now  another:  end;      to  close  the  procedure 

20)  And  one  more:  end;    to  close  the  entire  application 

21)  Now  let's  save  the  project.  Select  File  |  Save  project  as 

22)  Delphi  will  prompt  you  to  enter  a  name  for  the  code  you  have  just  written.  This 
name  must  be  different  than  the  name  of  the  executable  file  which  Delphi  asks 
for  next.  For  instance,  if  you  planned  to  have  the  executable  named  "Madlib.exe" 
as  in  this  example,  you  should  name  the  PAS  file  something  else.  I  used 
"Madlibpr.pas".  Now  Delphi  will  ask  for  your  project  name.  This  is  the  time  to 
enter  the  executable  program's  name. 

23)  You  are  now  ready  to  compile!  From  the  top  menus,  select  Options  |  Project. 
The  'Project  Options'  window  will  open.  On  the  quick  tabs,  select 
'Directories/Conditionals'.  The  field  'Output  Directory'  is  blank.  This  field 
indicates  the  directory  where  you  want  the  compiled  executable  to  be  placed. 
Click  on  the  down  arrow  to  the  right  of  the  field  and  you  will  be  given  a  choice  of 
directories  that  you  have  previously  entered.  'C:\website\cgi-win'  is  the  directory 
for  Windows  CGI  applications,  so  select  that  from  the  list  or  type  it  in  manually. 
Click  'OK'. 
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24)  Now  from  the  menu,  select  Compile  |  Compile.  If  you  have  any  errors  in  your 
code,  they  will  be  highlighted  in  red.  A  vaguely  helpful  message  will  be 
displayed  at  the  bottom  of  the  window.  Note  that  semi-colons  or  the  absence  of 
semi-colons  is  very  important.  One  misplaced  semi-colon  can  cause  many  errors. 
Generally  spaces  are  not  important  to  Delphi.  Also  notice  that  some  words 
become  bold  when  you  type  them  (i.e.  var,  procedure,  begin,  etc.)  these  words 
are  key  words  and  may  not  be  used  elsewhere  in  your  script. 

25)  Once  your  code  has  compiled,  you  are  done.  Exit  Delphi  and  fire  up  your  web 
browser.  A  complete  copy  of  the  example  code  follows  on  the  next  two  pages. 
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unit  Madlibpr; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  Cgi,  DB; 

type 

Tforml  =  class(TForm) 
CGIEnvDatal:  TCGEEnvData; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 
var 

forml:  Tforml; 
implementation 
{$R  *.DFM} 

procedure  Tforml. FormCreate(Sender:  TObject); 
var 

dgirl :  string; 

dboy :  string; 

dday :  string; 

drelative  :  string; 

dadjective :  string; 

dpet :  string; 

dfurniture  :  string; 

dingverb  :  string; 

dnoun :  string; 

dtime  :  string; 

dactverb :  string; 

begin 

with  CGIEnvDatal  do 
begin 

webSitelNIFilename  :=  paramstr(l); 

application.  onException  :=  cgiErrorHandler; 

application.  processMessages;  {  need  to  have  this  !  } 
CreateStdout; 
sendPrologue; 

dgirl  :=  getSmallField(  'girl' ); 
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dboy  :=  getSmallField(  'boy' ); 

dday  :=  getSmallField(  'day' ); 

drelative  :=  getSmallField(  'relative' ); 

dadjective  :=  getSmallField(  'adjective' ); 

dpet  :=  getSmallField(  'pet' ); 

dfurniture  :=  getSmallField(  'furniture' ); 

dingverb  :=  getSmallField(  'ingverb' ); 

dnoun  :=  getSmallField(  'noun' ); 

dtime  :=  getSmallField(  'time' ); 

dactverb  :=  getSmallField(  'actverb' ); 
send(  '<HTMLxHEAD>' ); 
sendTitle(  'Here  is  your  custom-made  MadLib...' ); 
send(  '</HEADxBODY>* ); 
send('<center><hl>Here  is  your  MadLib</hl>'); 
send('Thank  you  for  you  input. </center>'); 
send('<p>'); 
sendHR; 

send('One '  +  dday  +  "  +  dtime  + ', '  +  dboy  +  '  woke  up  and '); 

send('found  his '  +  drelative  +  "  +  dgirl  +  "  +  dingverb  +  ' '); 

send('her '  +  dpet  +  '  on  the '  +  dfurniture  +  '.  Amazed  by '); 

send('this  affectionate  display, '  +  dboy  +  '  asked '); 

send( dgirl  +  ',  "Would  you  like  to '  +  dactverb  +  '  my '); 

send(dadjective  +  "  +  dnoun  +  '  when  you"re  done?'"); 

send('<p>'); 

sendHR; 

send(  '<a  href="http://131.120.20.70">' ); 

send(  ^601111  to  the  Asilomar  Home  Page</A>'); 

send(  *<P>' ); 

send(  'This  application  was  created  using  Delphi  CGI  components. '); 

send(  '<P>' ); 

send(  'Generated  on '  +  webdate(now) ); 

send(  '</BODY></HTML>' ); 

closeStdout; 

end; 
closeApp(  application ); 
end; 
end. 
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Delphi  may,  at  first,  seem  intimidating,  even  with  previous  programming 
experience.  Our  initial  expectations  were  of  a  totally  "point-and-click"  interface,  which, 
as  we  have  seen  is  not  the  case.  But  having  worked  with  several  Delphi  applications,  we 
have  grown  accustomed  to  the  format.  Many  of  the  statements  used  in  the  example  you 
just  completed,  are  common  to  all  CGI  scripts.  The  layout  is  always  the  same.  First 
come  the  variable  declarations,  then  the  standard  Website  statements,  then  prologue 
operations,  then  web  page  creation.  Delphi  also  offers  the  power  of  a  built  in  database 
which  allows  seamless  compatibility. 

The  scripting  language  is  a  close  relative  of  Pascal.  We  did  not  include  in  this 
tutorial  a  discussion  of  programming  techniques,  explanations  of  variable  types,  and 
some  other  minor  details.  While  it  would  take  several  hundred  pages,  all  of  this 
information  is  available  in  the  online  help  which  is  quite  extensive.  Help  for  the  CGI 
environment  elements  can  be  downloaded  and  incorporated  into  the  Delphi  help  file. 
Delphi  also  has  built-in  interactive  tutors  which  include  a  demonstration  of  how  to  build 
an  application  (non-CGI  only)  which  can  be  used  to  increase  familiarity  with  the  program 
environment. 
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APPENDIX  B.  APPLICATION  TEMPLATES 

An  Application  Template  is  a  tool  used  in  system  design  to  determine  which 
processes  should  be  kept,  discontinued,  or  re-engineered.  For  the  Asilomar  Conference, 
seven  major  processes  were  identified: 

1)  Submissions  via  Postal  Mail  (Snail  Mail), 

2)  Submission  via  E-mail, 

3)  The  existing  Asilomar  Web  page  and  FTP  site, 

4)  The  article  review  process, 

5)  Conference  topic  area  determination, 

6)  Presentations  of  articles, 

7)  The  hard  copy  proceedings  of  the  Conference. 

Each  of  these  processes  is  rated  three  different  ways:  1)  User  satisfaction  versus  strategic 
value  (Fig.  B-l),  2)  Technical  quality  versus  strategic  value  (Fig.  B-2)  and,  3)  Technical 
quality  versus  technical  evolution  (Fig.  B-3).  These  three  ratings  are  then  totaled  for 
each  process  and  displayed  in  the  Summarized  Assessment  graph  (Fig.  B-4).  This  graph 
indicates  by  quadrant  which  process  should  be:  1)  replaced  or  discarded,  2)  kept  and 
tuned,  3)  renovated  or  re-engineered  and,  4)  built  upon. 
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Figure  B- 1 .  Technical  Quality  Versus  Strategic  Value. 
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Figure  B-2.  Technical  Quality  Versus  Technical  Evolution. 
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Figure  B-3.  User  Satisfaction  Versus  Strategic  Value. 


140 


l_ 

© 

© 

c 

c 

o 
a 

0) 

C 
© 

■D 

© 

D 

en 

m 

CO 

© 

© 

CO 
CO 

< 

c 
o 

o 

c 
o 

DO 

D 
> 

O 

c 

c 

<D  C 

© 

1 

© 

CO 

© 

cAr 
ermi 

O 

© 

Cv 

a. 

9-"S 

^ 

a. 

£o 

i 

LU 

LL. 

aoZE 


I 

GO 


LO 


CO 

0"0 

o2 

ii 


'o 

c 

CO 


C 

o 

O    _2 
> 

LU 


C\! 


D 
O 

"c 
.c 
o 

0 


5 

o 

'CD 
0 

g 

-*— 

CO 


CO 
CO 

© 
o 

2 

> 
© 


CNJ 


iO 


UOIjOD^SIjDS  jesD 

A|j|Dn©  poiuLjoei 


o 


Figure  B-4.  Summarized  Assessment. 
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APPENDIX  C.  SALSA  DATABASE  DESIGN  TABLES 

Salsa  is  a  shareware  database  design  tool.  Users  enter  information  about  the  data 
they  wish  to  store,  and  Salsa  will  create  the  necessary  relational  database  tables.  For 
example,  in  this  thesis,  it  was  determined  that: 

1 )  A  Contact  Author  could  submit  more  than  one  Paper, 

2)  A  Paper  could  have  more  than  one  Author, 

3)  A  Paper  could  have  more  than  one  Keyword, 

4)  A  Presentation  Session  could  have  more  than  one  Paper. 

These  relationships,  along  with  the  format  of  each  data  element  (last  name,  address,  etc.) 
were  entered  into  Salsa  which  generated  the  database  tables.  Salsa  also  automatically 
generates  reports  that  give  database  managers  a  quick  reference  of  the  database  structure. 
Figure  C-l  shows  the  titles  of  each  table  created,  and  the  labels  for  each  data  element 
within  a  table.  Figures  C-2  through  C-8  summarize  the  data  format  for  each  data 
element. 
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Figure  C-2.  Author. db  data  elements. 
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Figure  C-3.  Tempauth.db  data  elements. 
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APPENDIX  D.  SURVEY  RESULTS 

1995  Conference  Survey  results. 

A  total  of  1 1 8  surveys  were  returned.  Actual  results  are  included  but  highlights 
are  as  follows: 

-  Most  attendees  have  WWW  access  already 

-  Netscape  was  by  far  the  browser  of  choice 

-  Respondents  were  very  positive  about  web  access  to: 

1)  Retrieving  registration  materials, 

2)  Submitting  articles, 

3)  And  Previewing  selected  abstract. 

-  Respondents  were  unsure  about  whether  they  would  send  comments  to 
article  authors  about  their  articles. 

The  following  pages  summarize  the  data  collected  from  the  1995  survey. 
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1.  What  is  your  age? 

3%  4  O  under  25  years  old 

50%  59        O  25  to  34  years  old 

26%  30        O  35  to  44  years  old 


10%     12        O  45  to  54  years 
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9%       11        O  55  to  64  years 

old 
1  %      1  O  over  65  years  old 


2.         What  is  your  gender? 
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4.  If  you  are  involved  with  signal  processing,  what  best  describes  your  area  of  sub- 
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10%  15  O  Speech  Processing 

14%  21  O  Image  Processing 

11%  16  O  Computer  Processing 

12%  18  O  Comm.  Processing 


2% 
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O  Biomedical  Processing 

21% 

31 

O  Radar  /  Sonar  /  Array 
Processing 

27% 
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O  Digital  Processing 

2% 
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O  Networking 

5.  What  is  your  association  with  the  IEEE? 


22%     25 

O  Not  a  Member 

11% 

13 

O  Senior  Member 

23%     27 

O  Student  Member 

6% 

7 

O  Fellow 

37%     43 

O  Member 

6.  How  are  you  participating  in  this  conference? 

7%       9         O  Attending 
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83%    105      O  Presenting  an  article 
10%    13       O  Session  Chair 


In  the  preceding  12  months,  how  often  did  you  attend  a  professional  conference? 


16%  19 
44%  52 
36%     43 


O  None 

0  1-2  times 

O  3  -  5  times 


3% 


0  6-8  times 

0  9-11  times 

O  12  or  more  times 


8.         Which  word  processor  do  you  use  most  often  when  writing  professional  work 
(articles,  technical  memos,  etc.)? 


07%     8 
20%     25 
57%     70 


O  WordPerfect 
O  Microsoft  Word 
OTeX 


08% 


0 

0  Ami  pro 
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O  Other: 
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Publisher 
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Scientific 
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01% 

1 

Windows  XP 

9.  What  type  of  electronic  on-line  access  do  you  have  at  this  time? 

(Due  to  multiple  answers  by  respondents,  percentages  are  not  included) 

104      O  World-Wide-Web  access  O  I  have  local  e-mail  on  a 

LAN 
45        O  I  have  a  WWW  home  page  O  I'm  not  sure 

94       O  I  have  Internet  FTP  access 
1  O  I  do  not  have  any  on-line  access  at  this  time 

107      O  I  have  Internet  e-mail  access 

10.  What  type  of  electronic  on-line  access  do  you  expect  to  have  12  months  from 
now? 

(Due  to  multiple  answers  by  respondents,  percentages  are  not  included.) 

96        O  World-Wide-Web  access  O  local  e-mail  on  a  LAN 

63        O  a  WWW  home  page  O  I'm  not  sure 

82        O  Internet  FTP  access 

12       O  I  will  not  have  any  on-line  access 

94       O  Internet  e-mail  access 


1 1 .        If  you  have  World- Wide- Web  access,  what  browser(s)  do  you  use  (select  all  that 
apply)? 
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(Due  to  multiple  answers  by  respondents,  percentages  are  not  included.) 


99        O  Netscape  Navigator 

27       O  Spyglass  Mosaic 

3         O  America  Online  Browser 

O  COMPUSERVE  Browser 

MACWeb 

O  Prodigy  Browser 

O  Cyberjack 


O  PSINet  Pipeline 

O  Netcruiser 

O  Quarterdeck  Internet  Suite 

O  Tradewind  WINWeb  / 

O  Microsoft  Win95  Browser 
O  Other: 

4         NCSA  Mosaic 


12.       If  you  have  on-line  access,  what  is  the  highest  data  rate  you  normally  use? 


3%       3 
3%       3 

0  <  9600  Bps  Modem 
0  9600  Bps  Modem 

4%       5 
30%    35 

21%     25 

0  14.4  KBps  Modem 

39%     46 

O  28.8  KBps  Modem 

O  greater  than  28.8  (ISDN, 

T1,etc) 

O  I  access  the  Internet 

through  a  LAN  and  do  not 

know  what  data  rate  I  use. 
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With  respect  to  the  professional 
conferences  you  attend,  please  rate 
how  likely  you  would  be  to  use  the 
following  capabilities,  if  they  were 
available  on-line.  Assume  that  you 
have  the  required  technical  capabilities 
and  tools. 


1 

2               3 
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Avg:  4.32 
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4 
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Preview  article  abstracts  that 

have  been  selected  for 

1 
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3 

4 

5 

presentation  at  the  conference. 

0 

0 

0 

0 

O 

Avg:  4.17 

10 

3 

8 
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Send  comments  about  an 

article  that  has  been  selected 

for  presentation  at  the 
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conference  to  the  author. 
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11 
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APPENDIX  E.  ARTICLE  SUBMISSION  SUB-SYSTEM  CODE 

This  appendix  contains  the  HTML  and  Delphi  code  for  the  HTML  documents  and 
Delphi  executables  that  comprise  the  Article  Submission  Sub-system.  The  relationships  of 
the  programs  are  depicted  in  Figure  E-l. 
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Index 


.htm 


Introl0.htm 


Manualll.htm  InfoI2.htm  Searchl3.htm 

ExtSumm.htm  „ . ., 

D13.exe 


Authl312.htm 


Multil32.exe 


Addl32.exe  Editl32.exe 


D_Submit.exe 
DPaper.exe 
D2paper.exe 


Figure  E-l.  Article  Submission  Sub-system. 


160 


Author  submission  sub-system  introduction:  Intro  1 0.htm 


<HTML> 

<HEAD> 

<TITLE>Asilomar  Signals,  Systems,  and  Computers</TITLE> 

</HEAD> 

<BODY  bgcolor=FFFFFF> 
<centerxH2>Asilomar  Conference  on<BR> 
Signals,  Systems,  &  Computers</centerx/H2> 

<Hl>Electronic  Submission  Information</Hl> 

<P> Authors  wishing  to  submit  an  article  to  the  Asilomar 
Conference  on  Signals,  Systems,  &  Computers  via  on-line 
submission  not  only  save  the  cost  of  an  envelope  and  a  stamp, 
they  help  us  keep  down  the  cost  of  the  conference  by  reducing  the 
administrative  burden  on  our  staff. 

<PxA  HREF- '#Capabilities"xB> What  capabilities  do  I  need  to  submit  my  Article  on- 

line?</Bx/A> 

<PxA  HREF- '#Procedures"xB> What  are  the  procedures  to  submit  my  Article  on- 

line?</Bx/A> 

<PxA  HREF- 'search  13. htm"xB>I  am  ready  to  submit  my  article  on-line !</Bx/A> 

<BR> 

<A  NAME="Capabilities"> 

</AxhrxB>What  capabilities  do  I  need  to  submit  my  Article  on-line?</B> 

<P> Authors  wishing  to  submit  an  article  on-line  need  the  following 

capabilities: 

<OL> 

<li>Internet  access; 

<li>Forms  capable  Web  Browser  (HTML  3  or  better); 

<li>FTP  upload  software 

<ul> 

<li><li>Download  <a  href="../files/ws _ftp.zip"  >Windows  3.x  (16-bit)  FTP  software  </a> 

NOW! 

<lixli>Download  <a  href^"../files/ws_ftp32.zip"  >Windows  95  or  NT  (32-bit)  FTP  software 

</a>  NOW! 

</ul></ol> 

<hr> 

<A  NAME="Procedures"> 
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</A><b>What  are  the  procedures  to  submit  my  Article  on-line?</B> 
<P>Submitting  an  article  on-line  to  the  Conference 
is  done  in  the  following  steps: 

<OL> 

<li>Ensure  you  have  FTP  software,  download  it  above  if  necessary. 
<BR> 

<li>Select  "Submit  an  article"  at  the  bottom  of  this  page.  The  forms  presented  will  allow  you  to: 
<UL> 

<lixli>Ensure  that  the  information  about  you  is  accurate  in  our  database;  and 
<lixli>Submit  the  information  about  your  paper  (Title,  Keywords,  Abstract,  and  other 
Authors); 
</ulxBR> 

<i>Note:  if  you  have  already  received  a  registration  number,  user  ID  and  password,  the  above 
steps  should  be  complete.</i> 
<BR> 

<li>Finally,  submit  an  <A  HREF=extsumm.htm>Extended  Summary</A>  for  your  paper  via 
FTP. 
<UL> 

<lixli>Extended  summaries  must  be  in  Post  Script  (.PS)  or  ASCII  (.txt)  format 
<lixli>The  filename  of  your  summary  should  be  your  registration  number;  e.g.  "101.PS" 
would  be  a  valid  filename. 
</ULx/OL> 
<center> 

<PxhrxA  NAME="Submit"> 

</A><h3>rm  ready  to  <A  HREF="searchl3.htm">submit  my  Article  on-line !</Ax/h3> 
</centerxpxhr> 

<IMG  SRC="asil2b0.gif "  align=left  alt="Asilomar  facility"> 
Return  to  the  <A 
HREF="http://131.120.20.70Andex.html">Asilomar  Conference  On-line  Submission  Page</A> 
</BODY> 
</HTML> 


162 


Extended  Summary  page:  Extsumm.htm 

<HTML> 

<HEAD> 

<TITLE>Asilomar  Signals,  Systems,  and  Computers</TITLE> 

</HEAD> 

<BODY  bgcolor=FFFFFF> 
<centerxH2>Asilomar  Conference  on<BR> 
Signals,  Systems,  &  Computers</centerx/H2> 

<Hl>What  is  the  Extended  Summary?</Hl> 

<P>An  extended  summary  is  a  concise  summary  of  the  significance  of  the  submitted  paper.  It's 

length  should  be 

500  to  1000  words  and  can  include  figures.  The  extended  summary  will  be  used  to  evaluate  the 

paper 

for  significance  and  originality. 

<P>For  electronic  submission,  the  extended  summary  should  be  saved  in  Postscript  Format  and 

should  include  the 

Paper  Title  and  the  Author's  name. 

<PxhrxP> 

<IMG  SRC="asil2b0.gif "  align=left  alt="Asilomar  facility"> 
Return  to  the  <A 
HREF="http://13 1 .  120.20.70/Index.html">Asilomar 
Conference  On-line  Submission  Page</A> 
</BODY> 
</HTML> 
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Manual  submission  information  page:  Manual  1  l.htm 

<HTML> 

<HEAD> 

<TITLE>Asilomar  Signals,  Systems,  and  Computers</TITLE> 

</HEAD> 

<BODY  bgcolor=FFFFFF> 
<centerxH2>Asilomar  Conference  on<BR> 
Signals,  Systems,  &  Computers</center></H2> 

<Hl>Manual  Submission  Information</Hl> 

<P> Authors  wishing  to  submit  an  article  to  the  Asilomar  Conference  on  Signals,  Systems,  & 

Computers  via  mail  must 

submit  four  copies  of  the  abstract  (50  to  100  words)  and  four  copies  of  the  extended  summary 

(500  to  1000  words  plus  figures  and  tables).  Submissions 

must  include  :<ul> 

<LI>Paper  Information:  title,  each  author's  name  and  affiliation,  and  the  technical  area(s)  with 

number(s)  from  the  list  provided  on  the 

<A  HREF="http://dubhe.cc.nps.navy.mil/~asilomar/asil96/call3.html  ">  "Call  for 

Papers.  "</AxBR> 

<LI>Point  of  Contact  information:  name,  full  address,  telephone/fax  numbers  and  e-mail 

address.<BR> 

<LI> Abstract:  on  a  separate  page,  a  camera  ready  copy  of  the  abstract  headed  by  the  title, 

author's  names  and  affiliations  for  printing  in  an 

Abstract  Book  which  will  be  available  at  the  Conference.  The  type  used  must  be  clear  and 

readily  legible,  and  all  information  (including  title, 

author's  names  and  affiliations)  must  fit  within  a  2.75"  high  by  6.5"  wide  format  for  printing  in 

the  Abstract  Book  </UL> 


<P>  Submissions  should  be  sent  to:<ul> 

Asilomar  Conference  Technical  Program  Chairman<BR> 
c/o  ECE  Department,  Code  EC<BR> 
Naval  Postgraduate  School<BR> 
833  Dyer  Road,  Room  437<BR> 
Monterey,  CA  93943-5 1 2 1  </ULxBR> 

<h3>In  the  future</h3> 

Please  consider  submitting  your  articles  via 

our  on-line  submission  process.  Not  only  does  it  save  you  the 
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cost  of  an  envelope  and  a  stamp,  it  helps  us  keep  the  cost  of  the 
conference  lower  by  reducing  the  administrative  burden  on  our  staff.  <BR> 


<Pxhr><P> 

<EVIG  SRC="asil2b0.gif "  align=left  alt="Asilomar  facility"> 
Return  to  the  <A 

HREF="http://131.120.20.70/Index.html">Asilomar 
Conference  On-line  Submission  Page</A> 
</BODY> 
</HTML> 
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Submit  information  on-line:  Searchl3.htm 


<HTML> 

<HEAD> 

<TITLE>Asilomar  Signals,  Systems,  and  Computers</TITLE> 

</HEAD> 

<BODY  bgcolor=FFFFFF> 
<centerxH2>Asilomar  Conference  on<BR> 
Signals,  Systems,  &  Computers</H2x/center> 

<Hl>Contact  Author  Information</Hl> 

<P>  First  we  need  to  get  some  information  about  the  "contact 
author."  Remember  that  if  the  paper  has  only  <emp>one<emp> 
author,  the  "contact  author"  is  the  author.  But  if  there  are 
<emp>multiple<emp>  authors,  the  "contact  author"  is  the  one  whom 
will  be  the  point  of  contact  for  the  purpose  of  this  conference. 

<P>  To  determine  whether  you  are  currently  in  our  database, 

please  enter  your  name  below: 

<FORM  METHOD="POST"  ACTION="../cgi-win/D  13.exe  "> 

<HR> 

<B>First  Name:      </BxINPUT  NAME="first"  Size="20"  TYPE="TEXTt"> 
<B>Last  Name:      </BxINPUT  NAME="last"  Size="20"  TYPE="TEXT"> 
<B>Middle  Initial:  </BxINPUT  NAME="initial"  Size="2"  TYPE="TEXT"> 

<PxCENTERxINPUT  TYPE="submit"  Value="submit  author"> 
<INPUT  TYPE="reset"  VALUE="Clear  this  form"x/CENTER> 

<PxhrxP> 

<IMG  SRC="asil2b0.gif "  align=left  alt="Asilomar  facility"> 
Return  to  the  <A 
HREF="http://l  3 1 .  120.20.70/Index.html">Asilomar 
Conference  On-line  Submission  Page</A> 
</BODY> 
</HTML> 
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The  database  query  page:  D13.exe 
unit  D13; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
Authors:  TTable; 
DataSourcel:  TDataSource; 
Query  1:  TQuery; 
CGIEnvDatal:  TCGIEnvData; 
CGIDB  1:TCGIDB; 
Query  lFName:  TStringField; 
Query  lLName:  TStringField; 
Query  lANumber:  TIntegerField; 
Query  1  Initial:  TStringField; 
Query  1  Honorific:  TStringField; 
Query  1  Institution:  TStringField; 
Query  1  Department:  TStringField; 
Query  IMailstop:  TStringField; 
Query  lAddressStreet:  TStringField; 
Query  lAddressCity:  TStringField; 
Query  lAddressZip:  TStringField; 
Query  1  Country:  TStringField; 
Query  1  PhoneLocalNumber :  TStringField; 
Query  lPhoneFaxNumber:  TStringField; 
QuerylEmail:  TStringField; 
Query  lAddressState:  TStringField; 

procedure  FormCreate( Sender:  TObject); 
procedure  CGIDB  10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 
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function  MixCaseStr(S:  string):  string; 

implementation 

{$R  *.DFM} 

function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case. } 

var 

i:  integer; 

begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  V)  then 
Dec(S[l],32); 
for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  'A')  and  (S[i]  <=  *Z*)  and  (S[i-l]o' ')  and  (S[i-l]o*e')  and  (S[i-l]o'-')  and  (S[i- 
l]o'c')then 
Inc(S[i],  32); 
MixCaseStr  :=  S; 

end; 


procedure  TForm  1  .FormCreate( Sender:  TObject); 
var 

counter:  integer; 

dFNamein:  string; 

dLNamein:  string; 

dlnitialin:  string; 


dFName:  string; 
dLName:  string; 
dlnitial:  string; 

dbANumber:  string; 
dbFName:  string; 
dbLName:  string; 
dblnitial:  string; 
dbHonorific:  string; 
dblnstitution:  string; 
dbDepartment:  string; 
dbMailstop:  string; 
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dbAddressStreet:  string; 
dbAddressCity:  string; 
dbAddressState:  string; 
dbAddressZip:  string; 
dbCountry:  string; 
dbPhoneJLocalNumber:  string; 
dbPhoneFaxNumber:  string; 
dbEmail:  string; 


TC:  TDataSet; 

begin 

with  CGDEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 

application.  onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

dFNamein:=  getsmallfield  ('first');  {  } 

dLNamein:=  getsmallfield  ('last');  {  Get  fields  from  search  page  } 

dlnitialin:=  getsmallfield  ('initial');  {  } 

dFName:=  MixCaseStr  (dFNamein);  {  Convert  First  Name  to  mixed  case  } 

dLName:=  MixCaseStr  (dLNamein);  {  Convert  Last  Name  to  mixed  case  } 

if  (dlnitialin[l]  >=  'a')  and  (dlnitialin[l]  <=  'z')  then  begin 

Dec(dlnitialin[l],  32); 

dlnitial:=  dlnitialin;  {  Convert  Middle  Initial  to  upper  case  } 

end 

else  dlnitial:=  dlnitialin; 

send  ('<HTMLxHEAD>');  {  } 

SendTitle('Asilomar  Signals,  Systems,  and  Computers');       {  Every  page  gets  this  } 
send  ('</HEADxBODY  bgcolor=FFFFFF>');  {  } 

end; 

counter  :=  0; 

with  Queryl  do  {Check  the  database  for  the  author  First  and  Last  name} 

begin 
close; 


169 


sql.  clear; 

if  (dLName  o ")  and  (dFName  o  ")  then 

sql.add('Select*FROM  Author  WHERE  LName  =  '"  +  dLName  +  ""  +  'AND  FName  =  '"  + 
dFName  +  "") 

else  if  (dFName  = ")  then  sql.add('Select*FROM  Author  WHERE  LName  =  '"  +  dLName 

+  ""); 

open; 

fieldByName('ANumber').displayLabel:='Number'; 
fieldByNameCFName^.displayLabel—TirstName'; 
fieldByName('LName'). displayLabel :—  Last  Name'; 
fieldByName('Initial').displayLabel:='MI'; 
fieldByName('Honorific').  displayLabel  :='Title'; 
fieldByName('Institution'). displayLabel :='  Institution    Name '; 
fieldByName('Department'). displayLabel:-  Department    Name '; 

Authors.  Open; 
Authors.First; 

dbANumber  :=  fieldByName('ANumber').Asstring; 

dbFName  :=  fieldByNameCFName').AsString; 

dbLName  :=  fieldByNameCLName').AsString; 

dblnitial  :=  fieldByName('Initial').AsString; 

dbHonorific  :=  fieldByNameCHonorific').AsString; 

dblnstitution  :=  fieldByName('Institution').AsString; 

dbDepartment  :=  fieldByName('Department').AsString; 

dbMailstop  :=  fieldByNameCMailstop').AsString; 

dbAddressStreet  :=  fieldByName('Address_Street').AsString; 

dbAddressCity  :=  fieldByName('Address_City').AsString; 

dbAddress_State  :=  fieldByName('Address_State').AsString; 

dbAddress_Zip  :=  fieldByName('Address_Zip').AsString; 

dbCountry  :=  fieldByName('Country').AsString; 

dbPhone_LocalNumber  :=  fieldByName('Phone_LocalNumber').AsString; 

dbPhoneFaxNumber  :=  fieldByName(Phone_FaxNumber').AsString; 

dbEmail  :=  fieldByName('Emair).AsString; 

counter  :=  Recordcount;       {How  many  records  were  returned} 

Authors.  Close; 
end; 


with  cgiEnvDatal  do  {Output  the  results  of  the  query} 

begin 
if  counter  =  0  then  begin  {No  records  returned} 

send('<center><Hl>Add  New  Author  Information</Hl></center>'); 
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send  ('<P>  Your  name  was  not  found  in  our  current  database.  Please  provide'); 
send  ('  the  following  information  so  we  will  be  able  to  contact  you.<HR>'); 

send('<PxFORM  ACTION="addl  32.exe"  METHOD="POST,,>*); 

send('<B>First  Name:     </BxINPUT  NAME="FName"  Size="25"  TYPE="text" 
VALUE='"+  dFName  +"•>'); 

send('<B>  Last  Name:      </BxINPUT  NAME="LName"  Size="25"  TYPE="text" 
Value=*"  +  dLName  +,,,>*); 

send(*<B>  Middle  Initial:  </B><INPUT  NAME="Initial"  Size="2"  TYPE="text"  Value="' 
+  dlnitial  +mxHR>'); 

send('<B>Honorific  Title:</BxINPUT  NAME="Honorific"  Size="5"  TYPE^'text'V); 

send('<PxB>Institution:     </BxINPUT  NAME="Institution"  Size="60" 
TYPE^'text'V); 

send('<brxB>Department:      </BxINPUT  NAME="Deparrment"  Size- '60" 
TYPE="text">'); 

send('<brxB>Mail  Stop:       </BxINPUT  NAME="Mailstop"  Size="30" 
TYPE="text">'); 

send('<PxB>Street  address:  </BxINPUT  NAME=,,Address_Street"  Size="40" 
TYPE="text">,); 

send('<brxB>City:  </BxINPUT  NAME="Address_City"  Size="20" 

TYPE="text">'); 

send('<B>State:  </BxINPUT  NAME="  Address_State"  Size="  1 8"  TYPE="text">'); 

send('<br><B>Zip  Code:       </BxESlPUT  NAME="Address_Zip"  Size="  1 0" 

TYPE="text,,>'); 

send('<B>Country:        </BxINPUT  NAME="Country"  Size="25"  TYPE="text" 
VALUE="USAM>'); 

send('<PxB>Telephone  number  (with  Area/Country  codes):  </BxINPUT 
NAME=nPhone_LocalNumber"  Size="21"  TYPE="text">'); 

send('<br><B>Fax  number  (with  Area/Country  codes):      </BxINPUT 
NAME="Phone_FaxnumberM  Size="2r  TYPE="text">'); 

send('<brxB>E-mail:  </BxINPUT  NAME="Email"  Size="50"  TYPE="text">'); 

send('<PxCENTERxINPUT  TYPE=Msubmit"  Value="Submit  New  Information1^ 
<INPUT  TYPE="resetm); 

send('VALUE="Clear  this  form"x/CENTER>'); 
end 

else  if  counter  =  1  then  begin      {Only  one  record  returned} 

send('<centerxHl>Edit  Author  Informational x/center>'); 

send  ('<P>We  have  located  your  record  in  the  database.  Please  ensure  that'); 

send  ('  your  record  is  up-to-date  by  reviewing  the  information  below  and'); 

send  ('  making  any  changes  that  are  necessary.  For  your  protection,  changes  are  not'); 

send  ('  made  a  part  of  the  permanent  record  until  verified  by  our  staff. <BRxHR>'); 
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send('<PxFORM  ACTION="editl32.exe"  METHOD^TOSTV); 

send('<INPUT  NAME="ANumber"  TYPE="hidden"  Value='"+  dbANumber  +'">'); 

send('<B>First  Name:      </BxINPUT  NAME="FName"  Size="25"  TYPE="text" 
VALUE='"+  dbFName  +"*>'); 

send(*<B>  Last  Name:      </BxINPUT  NAME=*'LName"  Size="25"  TYPE="text" 
Value='"  +  dbLName  +"'>'); 

send('<B>  Middle  Initial:  </BxINPUT  NAME=MInitial"  Size="2"  TYPE="text"  Value="' 
+  dblnitial  +mxHR>'); 

send('<B>Honorific  Title:</BxINPUT  NAME="Honorific"  Size="5"  TYPE="text" 
Value="'  +  dbHonorific  +'">*); 

send('<PxB>Institution:     </B><INPUT  NAME="Institution"  Size="60"  TYPE="textm); 

send(*  Value=m  +  dblnstitution  +"•>»); 

send('<brxB>Department:      </BxINPUT  NAME=MDepartment"  Size- '60" 
TYPE="text"  Value='"  +  dbDepartment  +",>'); 

send('<brxB>Mail  Stop:      </B><lNPUT  NAME="Mailstop"  Size="30"  TYPE="text" 
Value='"  +  dbMailstop  +'">•); 

send('<PxB>Street  address:  </BxINPUT  NAME="Address_Street"  Size="40" 
TYPE="textm); 

send('Value=m  +  dbAddress_Street  +'">'); 

send('<brxB>City:  </BxINPUT  NAME="Address_City"  Size="20"  TYPE="text" 

Value="'  +  dbAddress_City  +'">'); 

send(*<B>State:  </BxINPUT  NAME="Address_State"  Size="2"  TYPE="text" 

Value="*  +  dbAddress_State  +*">'); 

send('<brxB>Zip  Code:       </BxINPUT  NAME="Address_Zip"  Size="  10" 
TYPE="text"  Value="'  +  dbAddress_Zip  +'">'); 

send('<B>Country:         </BxINPUT  NAME="Country"  Size="25"  TYPE="text" 
Value='"  +  dbCountry  +'">    '); 

send('<PxB>Telephone  number  (with  Area/Country  codes):</B><INPUT 
N  AME="Phone_LocalNumber"  Size="2 1 "'); 

send('  TYPE="text"Value="'  +  dbPhone_LocalNumber  +'">'); 

send('<brxB>Fax  number  (with  Area/Country  codes):  </BxINPUT 
NAME="Phone_Faxnumber"  Size="2 1 '"); 

send(*  TYPE=,,text"Value=m  +  dbPhone_FaxNumber  +'">'); 

send(*<brxB>E-mail:  </BxINPUT  NAME="Email"  Size="50"  TYPE="text" 

Value=m  +  dbEmail  +'">'); 

send('<p>The  database  has  found  a  unique  entry  based  on  the  first  and  last'); 

send('  name  you  submitted.  If  you  believe  this  entry  refers  to  another '); 

send('person,  then  you  have  two  choices:1); 

send('<ul><li>If  you  might  have  used  another  name,  then  <a 
href^"../prototype/searchl3.htm">'); 

send('Go  back  and  re-submit  your  query;</a>  or'); 

send('<li>If  this  is  your  name  but  this  is  not  your  record,  then  <a  href^'Wcgi- 
win/authl32.exe">'); 

send(Add  your  name  to  our  records. </ax/ul>'); 
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send('<P>If  this  entry  does  refer  to  you,  please  review  the  information  and  update  it  as 
necessary, '); 

send('then  click  on  "Submit  Information"  below<BR>'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Submit  Information'^   <INPUT 
TYPE="reset"*); 

send(*VALUE="Reset  to  Original  Information"x/CENTERx/form>'); 

send('<PxFORM  ACTION="d_submit.exe"  METHOD="POST">'); 
send  (*<INPUT  TYPE="hidden"  Name="ANumber"  Value='"  +  dbANumber  +*">*); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="NO  changes  necessary  -  ALL 
data  is  correct !"x/CENTERx/form>'); 
end 

else  begin       {more  than  one  record  returned} 

send  ('<centerxH2>Asilomar  Conference  on<BR>'); 
send  ('Signals,  Systems,  &  Computers</centerx/H2>'); 
send('<P><HRxCenter>'); 
CGIDBl.drawTable; 
Query  1.  close; 
send  ('</centerxp>'); 

send(The  database  has  found  more  than  one  entry  that  matches  your  first'); 
send('  and  last  name.  If  your  name  is  on  the  list  then  click  on  the  "Author  Number"  which 
is'); 

send('  to  the  right  of  your  name.'); 

send('<p>If  you  believe  your  record  may  be  under  another  name,'); 

send('  you  may  <a  href=".. /prototype/search  1 3. htm">Resubmit  your  name</a> '); 

send('<p>If  this  is  your  name  but  your  record  does  not  appear  here,'); 

send('  you  may  <a  href="../cgi-win/authl32.exe">Add  your  name  to  our  records.</a>'); 

end; 

{  HTML  page  Footer  } 

send('<P><hrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility"^); 

send('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar*); 

send('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForml.FormCreate} 

procedure  TForml.CGIDB10nSendingHotField(currentRecord:  TDataset; 
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var  s:  OpenString); 

begin 

s:-<A  HREF="../cgi-win/multl32.exe?'+  currentrecordTieldbyName('ANumber').AsString  + 

+  currentrecord.FieldbyName('ANumber').AsString  +  '</A>'; 

end;    {Procedure  TForml.CGIOnSendingHotField} 

end. 
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Add  New  Author  Information  page:  Addl32.exe 

unit  D132add; 

{  WHEN  CALLED:  This  program  is  activated  from  D13.exe  when  the  author  name  is  not 
found  in  the  AUTHOR  Table  **  OR  **  from  authl312.htm  when  adding  a  new  instance  of 
the  author  name  (a  new  person  with  the  same  name)} . 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
Authors:  TTable; 
CGDEnvDatal:  TCGEEnvData; 
CGIDB  1:TCGIDB; 

procedure  FormCreate( Sender:  TObject); 


private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dANumbenstring; 
dFName:  string; 
dLName:  string; 
dlnitial:  string; 

dFNamein:  string; 
dLNamein:  string; 
dlnitialin:  string; 

dHonorific:  string; 
dlnstitution:  string; 
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dDepartment:  string; 
dMailstop:  string; 
dAddressStreet:  string; 
dAddressCity:  string; 
dAddressState:  string; 
dAddressZip:  string; 
dCountry:  string; 
dPhoneAreaCode:  string; 
dPhoneLocalNumber:  string; 
dPhoneFaxNumber:  string; 
dEmail:  string; 

function  MixCaseStr(S:  string):  string; 


implementation 
{$R  *.DFM} 

function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case.  } 

var 

i:  integer; 

begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  *z')  then 

Dec(S[l],  32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  A')  and  (S[i]  <=  'Z')  and  (S[i-l]o' ')  and  (S[i-l]o'-')  and  (S[i-l]^'c*)  then 

Inc(S[i],32); 

MixCaseStr  :=  S; 

end; 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header) 

webSiteINIFilename:=paramstr(  1 ); 
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application.onException:=cgiErrorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 

{Get  data  from  FORM} 

dFNamein:=  getsmallfield  CFName'); 
dLNamein:=  getsmallfield  ('LName'); 
dlnitialin:=  getsmallfield  ('Initial'); 

dFName:=  MixCaseStr  (dFNamein);  {  Convert  First  Name  to  mixed  case  } 

dLName:=  MixCaseStr  (dLNamein);  {  Convert  Last  Name  to  mixed  case  } 

if  (dlnitialin[l]  >=  'a')  and  (dlnitialin[l]  <=  'z")  then  begin 

Dec(dlnitialin[l],  32); 

dlnitial"  dlnitialin;  {  Convert  Middle  Initial  to  upper  case  } 

end 
else  dlnitial:=  dlnitialin; 

(Honorific—  getsmallfield  CHonorific'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:=  getsmallfield  (Department'); 
dMailstop:=  getsmallfield  (Tvlailstop'); 
dAddress_Street:=  getsmallfield  ('AddressStreet'); 
dAddress_City:=  getsmallfield  ('AddressCity'); 
dAddress_State:=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('AddressZip'); 
dCountry:=  getsmallfield  ('Country'); 

dPhone_LocalNumber:=  getsmallfield  ('Phone_LocalNumber'); 
dPhoneFaxNumber:^  getsmallfield  ('PhoneFaxnumber'); 
dEmail:=  getsmallfield  ('Email'); 

{Append  data  to  AUTHOR  Table} 
Authors,  open; 

Authors.  AppendRecord( [nil,  dFName,  dLName,  dlnitial,  dHonorific,  destitution, 
dDepartment,  dMailstop, 

dAddressStreet,  dAddressCity,  dAddressState,  dAddressZip,  dCountry, 
dPhoneLocalNumber,  dPhoneFaxNumber,  dEmail]); 
Authors,  close; 

{Get  the  Author  number  for  the  new  record    } 

Authors,  open; 

Authors,  last; 

dANumber:=Authors.  fieldbyname('ANumber').  asstring; 

Authors.close; 
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{Send  the  Thankyou  Paper  page  with  the  link  to  ADD  Paperl32.htm     } 

send  (,<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEAD><BODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  on<BR>'); 

send  ("Signals,  Systems,  &  Computers</H2>'); 

send(*<PxHPv>'); 

send  ('<P>Thank  you  for  your  input '  +  dHonorific  +  ' '+  dFName  +' '+  dLName  +'. '); 
send  (Tour  information  has  been  added  to  our  records'); 

send  ('<FORM  ACTION="../cgi-win/d_submit.exe"  METHOD="POST">'); 
send  ('<INPUT  TYPE="hidden"  Name="ANumber"  Value="*  +  dANumber  +'">'); 
send  ('<PxINPUT  TYPE="submit"  Value-'Continue  with  the  Submission  Process">'); 
send  ('</CENTER>'); 

send('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility'V); 

sendCReturn  to  the  <A  HREF="http://131.120.20.70/index.html">AsilomaiJ); 
send('Conference  On-line  Submission  Page</A>'); 
send  (*</BODYx/HTML>*); 

closeStdout; 

closeApp(  application  );  {  don't  leave  form  around  } 

end;     (with  CGEEnvDatal} 

end;    {FormCreate} 

end. 
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Edit  Author  information  page:  Editl32.exe 

unitD132edit; 

{  WHEN  CALLED:  This  program  is  activated  from  D13.exe  when  the  author  name  is 
found  in 

the  AUTHOR  Table} 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
CGIEnvDatal:  TCGIEnvData; 
CGIDB  1:TCGIDB; 
TempAuthor:  TTable; 

procedure  FormCreate( Sender:  TObject); 


private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dANumber:  string; 
dANumberint:  integer; 
dFName:  string; 
dLName:  string; 
dlnitial:  string; 
dHonorific:  string; 
dlnstitution:  string; 
dDepartment:  string; 
dMailstop:  string; 
dAddressStreet:  string; 
dAddress_City:  string; 
dAddressState:  stnng; 
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dAddressZip:  string; 
dCountry:  string; 
dPhoneAreaCode:  string; 
dPhoneLocalNumber:  string; 
dPhoneFaxNumber:  string; 
dEmail:  string; 


implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate( Sender:  TObject); 

begin 

with  CGEnvDatal  do 
begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

dANumber:=  getsmallfield  ('ANumber'); 
dFName:=  getsmallfield  ('FName'); 
dLName:=  getsmallfield  ('LName'); 

dlnitial:=  getsmallfield  ('Initial'); 
dHonorific™  getsmallfield  ('Honorific'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:=  getsmallfield  ('Department'); 
dMailstop:=  getsmallfield  ('Mailstop'); 
dAddress_Street:=  getsmallfield  ('AddressStreet'); 
dAddress_City:=  getsmallfield  ('AddressCity'); 
dAddress_State:=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('AddressZip'); 
dCountry:=  getsmallfield  ('Country'); 

dPhoneLocalNumber:^  getsmallfield  ('PhoneLocalNumber'); 
dPhoneFaxNumber:^  getsmallfield  (PhoneFaxnumber'); 
dEmail:=  getsmallfield  ("Email'); 

dANumberint:=  StrToInt(dANumber);        {  Convert  the  dANumber  back  to  an  integer  } 
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with  TempAuthor  do  begin 

{Open  TempAuthor  table  and  append  new  record  } 

open; 

AppendRecord([nil,  dANumberint,  dFName,  dLName,  dlnitial,  dHonorific,  dlnstitution, 
dDepartment,  dMailstop, 

dAddressStreet,  dAddressCity,  dAddressState,  dAddressZip,  dCountry, 

dPhoneLocalNumber,  dPhoneFaxNumber,  dEmail]); 

close; 

end;      {with  TempAuthor} 

{Send  the  Thankyou  Paper  page  with  link  to  ADD  Paperl32.htm     } 

send  ('<HTMLxHEAD>*); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  on<BR>'); 

send  ('Signals,  Systems,  &  Computers</H2>'); 

send('<PxHR>'); 

send  ('<P>Thank  you  for  your  input '  +  dHonorific  +  ' '+  dFName  +' '+  dLName  +'. '); 
send  ('Your  information  has  been  stored  in  order  to  update  our  records.'); 
send  ('  To  protect  your  record,  changes  will  not  become  permanent  until  verified  by  our 
staff.'); 

send  ('<FORM  ACTION="../cgi-win/d_submit.exe"  METHOD="POST">*); 

send  (*<INPUT  TYPE="hidden"  Name="ANumber"  Value="'  +  dANumber  +'">'); 

send  ('<PxINPUT  TYPE="submit"  Value="Continue  with  the  Submission  Process">'); 
send  ('</CENTER>'); 

send('<PxhrxPxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt='*Asilomar 
facility">'); 

send('Return  to  the  <A  HREF="http://131.120.20.70/index.html">Asiloma^,); 
send('Conference  On-line  Submission  Page</A>'); 
send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  );  {  don't  leave  form  around  } 

end;     {with  CGIEnvDatal } 

end;    {FormCreate} 

end. 
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More  than  one  Author's  name  found:  Multil32.exe 

unitD132mult; 

{  WHEN  CALLED:  This  program  is  activated  from  D13.exe  when  more  than  one  author 
name  match  is  found  in  the  AUTHOR  Table. } 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi,  Cgidb; 

type 
TForml  =  class(TForm) 
CGIDB  1:TCGIDB; 
CGEEnvDatal:  TCGIEnvData; 
Authors:  TTable; 
DataSourcel:  TDataSource; 
procedure  FormCreate(  Sender:  TObject); 

private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 


procedure  TForml. FormCreate( Sender:  TObject); 
var 

dANumber:  string; 

dbFName:  string; 

dbLName:  string; 

dblnitial:  string; 

dbHonorific:  string; 

dblnstitution:  string; 

dbDepartment:  string; 
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dbMailstop:  string; 
dbAddressStreet:  string; 
dbAddressCity:  string; 
dbAddressState:  string; 
dbAddressZip:  string; 
dbCountry:  string; 
dbPhoneLocalNumber:  string; 
dbPhoneFaxNumber:  string; 
dbEmail:  string; 

TC:  TDataSet; 

begin     {TFormCreate} 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSitelNff  ilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{  Get  the  query  string  from  the  address} 

dANumber  :=  CGIQueryStringA; 

{  Get  the  record  information  } 

with  Authors  do  begin 

{  Move  to  proper  record) 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{  Retrieve  record  } 

dbFName  :=  fieldByName(TName').AsString; 
dbLName  :=  fieldByName('LName').AsString; 
dblnitial  :=  fieldByName('Initial').AsString; 
dbHonorific  :=  fieldByName('Honorific').AsString; 
dblnstitution  :=  fieldByName('Institution').AsString; 
dbDepartment  :=  fieldByName(Department').AsString; 
dbMailstop  :=  fieldByName('Mailstop').AsString; 
dbAddressStreet  :=  fieldByName('Address_Street').AsString; 
dbAddressCity  :=  fieldByName('Address_City').AsString; 
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dbAddressState  :=  fieldByName('Address_State').AsString; 

dbAddressZip  :=  fieidByName(,Address_Zip,).AsString; 

dbCountry  :=  fieldByName('Country').AsString; 

dbPhoneLocalNumber  :=  fieldByNameCPhoneLocalNumber^.AsString; 

dbPhoneFaxNumber  :=  fieldByName('Phone_FaxNumber').AsString; 

dbEmail  :=  fieldByName('Emair)AsString; 

Close; 

end;     {With  Authors} 


{Create  new  page} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxHl>Edit  Author  Information</Hlx/center>'); 
send  (*<P>We  have  located  your  record  in  the  database.  Please  ensure  that'); 
send  ('  your  record  is  up-to-date  by  reviewing  the  information  below  and'); 
send  ('  making  any  changes  that  are  necessary. <BRxHR>'); 

send('<PxFORM  ACTION="editl 32.exe"  METHOD="POST">'); 
send('<INPUT  NAME="ANumber"  TYPE="hidden"  Value='"+  dANumber  +'">'); 

send('<B>First  Name:     </BxINPUT  NAME="FName"  Size="25"  TYPE="text" 
VALUE='"+  dbFName  +"*>'); 

send('<B>  Last  Name:      </B><lNPUT  NAME="LName"  Size="25"  TYPE="text" 
Value="'  +  dbLName  +'">'); 

send('<B>  Middle  Initial:  </BxINPUT  NAME="Initial"  Size="2"  TYPE="text"  Value="' 
+  dblnitial  +"*xHR>'); 

send('<B>Honorific  Title:</BxINPUT  NAME="Honorific"  Size="5"  TYPE="text" 
Value=*"  +  dbHonorific  +'">'); 

send('<PxB>Institution:     </BxINPUT  NAME="Institution"  Size="60"  TYPE="text'"); 

send('  Value='"  +  dblnstitution  +'">*); 

send('<brxB>Department:      </BxlNPUT  NAME="Department"  Size="60" 
TYPE="text"  Value='"  +  dbDepartment  +'">*); 

send('<brxB>Mail  Stop:       </BxINPUT  NAME="Mailstop"  Size="30"  TYPE="text" 
Value='"  +  dbMailstop  +'">'); 

send('<PxB>Street  address:  </BxINPUT  NAME="Address_Street"  Size="40" 
TYPE="texf"); 

send('Value=*"  +  dbAddress_Street  +'">*); 

send('<brxB>City:  </BxINPUT  NAME="Address_City"  Size="20"  TYPE="text" 

Value='"  +  dbAddress_City  +'">*); 

send('<B>State:  </BxlNPUT  NAME="Address_State"  Size="  1 8"  TYPE="text" 

Value="*  +  dbAddress_State  +*">'); 

send('<brxB>Zip  Code:        </BxINPUT  NAME=" Address_ZipM  Size="  1 0" 
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TYPE="text"  Value=m  +  dbAddress_Zip  +'">'); 

send('<B>Country:        </BxINPUT  NAME="Country"  Size="25"  TYPE="text" 
Value=m  +  dbCountry  +*">    '); 

send('<PxB>Telephone  number  (with  Area/Country  codes):      </BxINPUT 
NAME="Phone_LocalNumber"  Size="2 1 '"); 

sendC  TYPE="text"Value=,M  +  dbPhone_LocalNumber  +'">'); 

send('<brxB>Fax  number  (with  Area/Country  codes):  </BxINPUT 

NAME="Phone_Faxnumber"  Size="2 1  "*); 

send('  TYPE="text"Value="'  +  dbPhone_FaxNumber  +'">'); 

send(*<brxB>E-mail:         </BxINPUT  NAME="Email"  Size="50"  TYPE="textM 
Value="'  +  dbEmail  +"'>•); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Submit  Information'^    <INPUT 
TYPE="resetm); 

send('VALUE="Reset  to  Original  Information,,></CENTER>'); 

send('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility"^); 

sendCReturn  to  the  <A  HREF="http://131.120.20.70/Index.htmr'>Asilomar'); 

send('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForml.FormCreate} 

end. 


185 


Article  submission  page:  D_submit.exe 

unit  Dsubmit; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

Query  1:  TQuery; 

Keywords:  TTable; 

Query  1  Name:  TStringField; 

KeywordsNumber:  TIntegerField; 

KeywordsName:  TStringField; 

Query INumber:  TIntegerField; 

procedure  FormCreate(  Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dbANumber:  string; 
dbOption:  string; 
i:  integer; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 
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webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

dbANumber:=getsmallfield('ANumber'); 

send  (,<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  on<BR>'); 

send  ('Signals,  Systems,  &  Computers</centerx/H2>'); 

send('<PxHR>'); 

send('<Hl>New  Article  Submission</Hl>'); 

send('<P>  Please  provide  the  following  information  about  the  article.'); 

send(*<P><FORM  METHOD="POST"  ACTION="../cgi-win/d_paper.exe  ">'); 
send(*<INPUT  TYPE="hidden"  Name="ANumber"  Value="'+  dbANumber  +*">*); 
send('<B>Title:  </BxINPUT  NAME="title"  Size="80"  TYPE="text">'); 

{Display  Keywords  on  pull-down  menu  by  taking  values  from  the  KEYWORD  Table) 

{Pull  Keywords  from  KEYWORD  Table  } 

with  Query  1  do  begin 
close; 
sql.  clear; 

sql.add('Select  *  FROM  Keyword '); 
open; 

{Move  records  from  query  result  to  Keyword  #1  Pull-down  menu} 
Keywords,  open; 
Keywords,  first; 

send('<PxB>Keyword  #1:  </BxSELECT  NAME="Keywordl">*); 

while  not  Keywords.EOF  do  begin 
dbOption:=  Keywords.  fieldByName('Name').Asstring; 
send('<OPTION> '  +dbOption+ "); 
Keywords,  next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECT>'); 

{Move  records  from  query  result  to  Keyword  #2  Pull-down  menu} 
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Keywords,  first; 

send(*<PxB>Keyword  #2:  </BxSELECT  NAME="Keyword2">'); 

send('<OPTION>  None*); 

while  not  Keywords.EOF  do  begin 
dbOption:=  Keywords.  fieldByName('Name').Asstring; 
send(*<OPTION>  *  +dbOption+ "); 
Keywords,  next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECT>'); 

{Move  records  from  query  result  to  Keyword  #3  Pull-down  menu} 

Keywords,  first; 

send('<PxB>Keyword  #3:  </BxSELECT  NAME="Keyword3">*); 
send('<OPTION>  None'); 

while  not  Keywords.EOF  do  begin 

dbOption:=  Keywords.  fieldByNameCName').  Asstring; 

send('<OPTION> '  +dbOption+ "); 

Keywords.next; 

end;  {for  all  records  in  the  query  result} 

send('</SELECT>'); 
end;  {with  Query  1} 
{Also  end  displaying  Keyword  pull-down  menus} 


send('<PxB>Abstract:     <p></BxTEXTAREA  NAME="abstract"  COLS=70  Rows=  1 0>'); 
send('Please  enter  your  abstract  here  by  either'); 
send('typing  or  copying  over  this  text.</TEXTAREA>'); 

send  ('<Pxhl>Other  Author  Information</hl>If  there  are  multiple  authors  for  this  article, '); 
send  ('please  enter  the  following  information.  '); 

send  ('In  the  boxes  marked  "Name  Position"  please  enter  the  position  in  which  you  wish '); 
send  ('each  author"s  name  to  appear  when  the  abstract  is  printed.'); 
send  ('<brxB>Position  of  the  Contact  Author"s  Name:</B>'); 

send  ('<Select  NAME- 'contactOrder"  xoption>  l<option>  2<option>  3<option>  4<option> 
5<option>  6</select>'); 
sendhr; 

send  ('<centerxh2>Other  Authors</h2x/centerxhr>'); 

send  ('<B>Name  Position:  </BxSelect  NAME="order2"  ><option>  Koption  selected>  2'); 
send  ('<option>  3<option>  4<option>  5<option>  6</select>'); 
send  ('<B>First  Name:      </BxlNPUT  NAME="fhame2"  Size="25"  TYPE="text">'); 
send  ('<B>Middle  Initial:  </B><INPUT  NAME="initial2"  Size="l"  TYPE="text">'); 
send  ('<BRxB>Last  Name:      </B><INPUT  NAME="lname2"  Size="25"  TYPE="text">'); 
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send  ('<brxB>Institution:     </BxINPUT  NAME=,,institution2,,  Size- '60"  TYPE="text">'); 

sendhr; 

send  ('<B>Name  Position:  </B><Select  NAME="order3"  xoption>  l<option>  2'); 
send  ('<option  selected>  3<option>  4<option>  5<option>  6</select>'); 
send  ('<B>First  Name:      </BxINPUT  NAME="mame3"  Size="25"  TYPE="text">*); 
send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial3"  Size="l"  TYPE="text">'); 
send  ('<BRxB>Last  Name:      </BxENPUT  NAME="lname3"  Size="25"  TYPE="text">'); 
send  ('<BRxB>Institution:     </B><INPUT  NAME="institution3"  Size="60" 
TYPE="text">'); 

sendhr; 

send  ('<B>Name  Position:  </BxSelect  NAME="order4"  xoption>  l<option>  2<option>'); 
send  ('  3<option  selected>  4<option>  5<option>  6</select>'); 

send  ('<B>First  Name:      </BxINPUT  NAME="fhame4"  Size="25"  TYPE="text">'); 
send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial4"  Size="l"  TYPE="text">'); 
send  ('<BRxB>Last  Name:       </BxINPUT  NAME="lname4"  Size="25"  TYPE="text">'); 
send  ('<BRxB>Institution:     </BxINPUT  NAME="  institution"  Size- *60" 
TYPE="text">*); 

sendhr; 

send  ('<B>Name  Position:  </BxSelect  NAME- "order5"  xoption>  l<option>  2'); 
send  ('<option>  3<option>  4<option  selected>  5<option>  6</select>'); 
send  ('<B>First  Name:     </BxINPUT  NAME="fname5"  Size="25"  TYPE^'text'V); 
send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial5"  Size="l"  TYPE="text">'); 
send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname5"  Size="25"  TYPE="text,,>'); 
send  ('<BRxB>Institution:     </BxINPUT  NAME=,,institution5"  Size="60" 
TYPE="text">*); 

sendhr; 

send  ('<B>Name  Position:  </BxSelect  NAME- *order6"  xoption>  l<option>  2'); 
send  ('<option>  3<option>  4<option>  5<option  selected>  6</select>'); 
send  ('<B>First  Name:      </BxINPUT  NAME="fname6"  Size="25"  TYPE="text">'); 
send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial6"  Size="l"  TYPE="text">'); 
send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname6"  Size="25"  TYPE="text">'); 
send  ('<BRxB>Institution:     </BxlNPUT  NAME="institution6"  Size=,,60,, 
TYPE="text">'); 

send('<PxCENTERxINPUT  TYPE="submitn  Value="Submit  Paper  Information'^ '); 
send(*<INPUT  TYPE="reset"  VALUE="Clear  this  form"x/CENTER>*); 

send('<Pxhr><PxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility"^); 

send('Return  to  the  <A  HREF=".. /index. html">Asilomar'); 
send('Conference  Home  Page</A>'); 
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send  ('</BODYx/HTML>'); 

send('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  );  {  don't  leave  form  around  } 

end;    {with  CGIEnvDatal} 

end;  {FormCreate} 

end. 
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Article  information  confirmation  page:  Dpaper.exe 

unit  Dpaper; 

{  WHEN  CALLED:  This  program  is  activated  upon  the  Submit  Paper  Information.} 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
CGIDB  1:TCGIDB; 
CGIEnvDatal:  TCGIEnvData; 
DataSourcel:  TDataSource; 
Authors:  TTable; 

procedure  FormCreate( Sender:  TObject); 

private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

theabstract :  TStringList; 
i:  integer; 

dANumber:  string; 
dANumberint:  integer; 

dFName:  string; 
dLName:  string; 
dlnitial:  string; 
dHonorific:  string; 


dtitle:  string; 
dkeywordl:  string; 
dkeyword2:  string; 
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dkeyword3:  string; 
dabstract:  string; 
dcontactOrder:  string; 

dfname2,  dfhame2in:  string; 
dlname2,  dlname2in:  string; 
dinitial2:  string; 
dinstitution2:  string; 
dorder2:  string; 

dfhame3,  dfhame3in:  string; 
dlname3,  dlname3in:  string; 
dinitiaB:  string; 
dinstitution3:  string; 
dorder3:  string; 

dfhame4,  dfhame4in:  string; 
dlname4,  dlname4in:  string; 
dinitial4:  string; 
dinstitution4:  string; 
dorder4:  string; 

dfiiame5,  dfname5in:  string; 
dlname5,  dlname5in:  string; 
dinitial5:  string; 
dinstitution5:  string; 
dorder5:  string; 

dfhame6,  dfhame6in:  string; 
dlname6,  dlname6in:  string; 
dinitia!6:  string; 
dinstitution6:  string; 
dorder6:  string; 

dbFName  :  string; 
dbLName  :  string; 
dblnitial :  string; 
dbHonorific  :  string; 

function  MixCaseStr(S:  string):  string; 


implementation 
{$R  *.DFM} 
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function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case.  } 

var 

i:  integer; 

begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  V)  then 

Dec(S[l],32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  'A')  and  (S[i]  <=  T)  and  (S[i-l]o* ')  and  (S[i-l]o'-')  and  (S[i-l]o'c')  then 

Inc(S[i],  32); 

MixCaseStr  :=  S; 

end; 

{  ****  *  ****        ****  } 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGEEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{  Get  the  fields  from  the  FORM  } 

dANumber:=  getsmallfield  ('ANumber'); 
dANumberint:=  strtoint  (dANumber); 
dtitle:=  getsmallfield  ('title'); 


dkeywordl 
dkeyword2 
dkeyword3 


=  getsmallfield  ('keywordl'); 
=  getsmallfield  ('keyword2'); 
=  getsmallfield  ('keyword3'); 


theabstract  :=  TStringList. create; 
CGIEnvDatal.getTextArea(  'abstract',  theabstract ); 

dcontactOrder:=  getsmallfield  ('contactOrder'); 
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(get  data  on  second  author  position} 

dfhame2in:=  getsmallfield  ('fhame2'); 
dlname2in:=  getsmallfield  ('lname2'); 

if  (dfname2in  = ")  and  (dlname2in  = ")  then  dorder2:= "      {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 
dorder2:=  getsmallfield  ('order2'); 
dinitial2:=  getsmallfield  ('initial2'); 
dinstitution2:=  getsmallfield  ('institution2'); 

{Format  the  Names} 
dfhame2:=  MixCaseStr  (dfhame2in); 
dlname2:=  MixCaseStr  (dlname2in) 
end;  {if} 


{get  data  on  third  author  position} 

dfname3in:=  getsmallfield  ('fname3'); 
dlname3in:=  getsmallfield  ('lname3'); 

if  (dfhame3in  = ")  and  (dlname3in  = ")  then  dorder3:=  "      {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 

dorder3:=  getsmallfield  ('order3'); 
dinitial3:=  getsmallfield  ('initiaB'); 
dinstitution3:=  getsmallfield  ('institution3'); 

{Format  the  Names} 

dfhame3:=  MixCaseStr  (dfhame3in); 
dlname3:=  MixCaseStr  (dlname3in) 
end;  {if} 


{get  data  on  fourth  author  position} 

dfname4in:=  getsmallfield  (Tname4'); 
dlname4in:=  getsmallfield  ('lname4'); 

if  (dfhame4in  =  ")  and  (dlname4in  =  ")  then  dorder4:=  "      {Remove  the  number  if  there  is 
no  name} 

else  begin 
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(get  the  rest  of  the  info} 

dorder4:=  getsmallfield  ('order4'); 
dinitial4:=  getsmallfield  ('initiaW); 
dinstitution4:=  getsmallfield  ('institution4'); 

(Format  the  Names} 

dfiiame4:=  MixCaseStr  (dfhame4in); 
dlname4~  MixCaseStr  (dlname4in) 
end;  {if} 


{get  data  on  fifth  author  position} 

dfname5in:=  getsmallfield  ('fname5'); 
dlname5in:=  getsmallfield  ('lname5'); 

if  (dfhame5in  = ")  and  (dlname5in  = ")  then  dorder5:= "      {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 

dorder5:=  getsmallfield  ('order5'); 
dinitial5:=  getsmallfield  ('initial5'); 
dinstitution5:=  getsmallfield  ('institution5'); 

{Format  the  Names} 

dfhame5:=  MixCaseStr  (dfname5in); 
dlname5:=  MixCaseStr  (dlname5in) 
end;  {if} 


{get  data  on  sixth  author  position} 

dfhame6in:=  getsmallfield  ('fhame6'); 
dlname6in:=  getsmallfield  ('lname6'); 

if  (dfname6in  = ")  and  (dlname6in  = ")  then  dorder6:= "      {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 

dorder6:=  getsmallfield  ('order6'); 
dinitial6:=  getsmallfield  ('initial6'); 
dinstitution6:=  getsmallfield  ('institution6'); 

{Format  the  Names} 

dfname6:=  MixCaseStr  (dfhame6in); 
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dlname6:=  MixCaseStr  (dlname6in) 
end;  {if} 

{if  there  are  no  other  authors,  then  do  not  place  a  number  in  contactAuthorNumber} 
if  (dorder2  = ")  and  (dorder3  = ")  and  (dorder4  =  ")and  (dorder5  =  ")and  (dorder6  = ")  then 
dcontactOrder:= "; 


{  Get  Author  Name  information  for  next  HTML  page  } 

with  Authors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{  Retrieve  Name  information  } 

edit; 

dbFName  :=  fieldByName('FName').AsString; 

dbLName  :=  fieldByNameCLName').AsString; 

dblnitial  :=  fieldByName('Initiar).AsString; 

dbHonorific  :=  fieldByNameCHonorific').AsString; 

close; 

end;     {With  Authors} 


{  Send  the  Confirm  html  page      } 

send  (,<HTMLxHEAD>*); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  on<BR>'); 

send  ('Signals,  Systems,  &  Computers</H2>'); 

send('<PxHR>'); 

send  ('<P>Thank  you  for  your  input '  +  dbHonorific  +  ' '+  dbFName  +' '+  dbLName  +'. '); 

send  (Please  confirm  that  the  following  information  is  correct  before  it  is  added  to  our 
records.'); 

send  ('<strong>This  information  can  not  be  changed  after  it  is  submitted  this 
time !  </strongx/center>'); 

send('<PxFORM  METHOD="POST"  ACTION="../cgi-win/d2paper.exe  ">'); 

send('<INPUT  TYPE="hidden"  Name="ANumber"  Value="'+  dANumber  +*">'); 

send  ('<B>Title:  </BxINPUT  NAME="title"  Size="80"  TYPE="text"  Value="*+  dtitle 

+'">*); 
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send  ('<PxB>Keyword  #1:  </B><INPUT  NAME-'keywordl"  SIZE="50"  TYPE="TEXT" 
VALUE='"+  dkeywordl  +"'>'); 

send  ('<PxB>Keyword  #2:  </B><INPUT  NAME="keyword2"  SIZE="50"  TYPE="TEXT" 
VALUE="'+  dkeyword2  +'">'); 

send  ('<PxB>Keyword  #3:  </B><INPUT  NAME="keyword3"  SIZE="50"  TYPE="TEXT" 
VALUE="'+  dkeyword3  +'">'); 

send  ('<PxB>Abstract:     </BxpxTEXTAREA  NAME="abstract"  COLS=70  Rows=l 0>*); 
for  i  :=  0  to  theabstract.  count  - 1  do 

send(  theabstract. strings[i] ); 
send  (,</TEXTAREA>'); 

send  ('<Pxhl>Other  Author  Information</hl>If  there  are  multiple  authors  for  this  article, '); 

send  ('please  enter  the  following  information.  It  is  assumed  that  you  are  the  "Contact 
Autohor"  for'); 

send  ('this  paper.  In  the  boxes  marked  "Name  Position"  please  enter  the  position  in  which 
you  wish '); 

send  ('each  authors  name  to  appear  when  the  abstracts  are  printed.'); 

send  (*<brxB>Position  of  YOUR  Name:</B>'); 

send  ('<INPUT  NAME="contactOrder"  Size="2"  TYPE="text"  Value='"+  dcontactOrder 
+,n>,); 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order2"  Size="2"  TYPE="text"  Value='"+ 
dorder2  +'">'); 

send  ('<B>First  Name:     </BxINPUT  NAME="fhame2"  Size="25"  TYPE="text"  Value="'+ 
dmame2  +'">'); 

send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial2"  Size="l"  TYPE="text"  Value="'+ 
dinitial2  +'">'); 

send  ('<BRxB>Last  Name:      </BxlNPUT  NAME="lname2"  Size="25"  TYPE="text" 
Value=*"+  dlname2  +"*>*); 

send  ('<BRxB>Institution:  </BxINPUT  NAME="institution2"  Size="60"  TYPE="text" 
Value='"+  dinstitution2  +'">'); 

sendhr; 

send  ('<B>Name  Position:  </BxlNPUT  NAME="order3"  Size="2"  TYPE="text"  Value="'+ 
dorder3  +'">'); 

send  ('<B>First  Name:      </BxINPUT  NAME="fhame3"  Size="25"  TYPE="text"  Value='"+ 
dfhame3  +'">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial3"  Size="l"  TYPE="text"  Value="'+ 
dinitial3  +*">'); 

send  ('<BRxB>Last  Name:      </BxINPUT  NAME="lname3"  Size="25"  TYPE="text" 
Value="'+  dlname3  +'">'); 

send  ('<brxB>Institution:     </BxINPUT  NAME="mstitution3"  Size="60"  TYPE="text" 
Value='"+  dinstitution3  +'">'); 
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sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order4"  Size="2"  TYPE="text"  Value='"+ 
dorder4  +m>'); 

send  ('<B>First  Name:      </B><INPUT  NAME="mame4"  Size="25"  TYPE="text"  Value='"+ 
dfname4  +'">*); 

send  ('<B>Middle  Initial:  </B><INPUT  NAME="initial4"  Size="l"  TYPE="text"  Value=m+ 
dinitiaW  +"•>•); 

send  ('<BRxB>Last  Name:      </BxINPUT  NAME="lname4"  Size="25"  TYPE="text" 
Value=m+  dlname4  +'">'); 

send  ('<BRxB>Institution:     </BxINPUT  NAME="institution4"  Size="60"  TYPE="text" 
Value='"+  dinstitution4  +*">'); 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order5"  Size="2"  TYPE="text"  Value='"+ 
dorder5  +'">'); 

send  ('<B>First  Name:      </BxINPUT  NAME^'mameS"  Size="25"  TYPE="text"  Value='"+ 
dfhame5  +'">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial5"  Size="l"  TYPE="text"  Value=m+ 
dinitial5  +"*>*); 

send  ('<BRxB>Last  Name:      </BxINPUT  NAME="lname5"  Size="25"  TYPE="text" 
Value="'+  dlname5  +'">'); 

send  ('<BRxB>Institution:     </BxINPUT  NAME="  institution "  Size="60"  TYPE="text" 
Value='"+  dinstitution5  +'">'); 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order6"  Size="2"  TYPE="text"  Value=*"+ 
dorder6  +'">'); 

send  ('<B>First  Name:     </BxINPUT  NAME="rname6M  Size="25"  TYPE="text"  Value=m+ 
dmame6  +*">'); 

send  (*<B>Middle  Initial:  </B><INPUT  NAME="initial6"  Size="l"  TYPE="text"  Value='"+ 
dimtial6  +*">'); 

send  ('<BRxB>Last  Name:       </BxINPUT  NAME="lname6"  Size="25"  TYPE="text" 
Value='"+  dlname6  +*">*); 

send  ('<BR><B>Institution:     </BxINPUT  NAME="institution6"  Size="60"  TYPE="text" 
Value- "+  dinstitution6  +'">'); 

sendhr; 

send  ('<PxCENTERxINPUT  TYPE=" submit"  Value="Confirm  Submission 

Information-'xlNPUTTYPE-'reset"*); 

send  ('  VALTJE="Clear  this  form"x/CENTER>?); 

send('<P><hrxP><IMG  SRC-'../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility'V); 

send('Return  to  the  <A  HREF="http://13 1. 120.20.70/Index.html">Asilomar'); 
send('Conference  On-line  Submission  Page</A>'); 
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send  ('</BODY></HTML>'); 

closeStdout; 

closeApp(  application  );  {  don't  leave  form  around  } 

end;     {with  CGDEnvDatal} 

end;    {with  FormCreate} 

end.   {Application} 


199 


Confirmation  page:  D2paper.exe 

unit  D2_paper; 

{  WHEN  CALLED:  This  program  is  activated  upon  the  Submission  Information 
Confirmation. } 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables,  Starsock,  Inetmail; 


type 
TForml  =  class(TForm) 
Articles:  TTable; 
DataSourcel:  TDataSource; 
CGIEnvDatal:  TCGIEnvData; 
CGIDB  1:TCGIDB; 
Authors:  TTable; 

procedure  FormCreate( Sender:  TObject); 
{  procedure  SendMail(DataSet:  TDataset);  } 
{  procedure  onmailinfo( Sender:  TObject;  info:  Maillnfo;  addinfo:  String);  } 

private 
{ Private  declarations  } 

public 

{  Public  declarations  } 
end; 


var 
Forml:  TForml; 
theabstract :  TStringList; 
dANumber:  string; 
dANumberint:  integer; 

dtitle:  string; 
dkeywordl:  string; 
dkeyword2:  string; 
dkeyword3:  string; 
dabstract:  string; 
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dcontactOrder:  string; 

dfhame2in:  string; 
dlname2in:  string; 
dfhame2:  string; 
dlname2:  string; 
dinitial2:  string; 
dinstitution2:  string; 
dorder2:  string; 

dfhame3in:  string; 
dlname3in:  string; 
dfhame3:  string; 
dlname3:  string; 
dinitiaB:  string; 
dinstitution3:  string; 
dorder3:  string; 

dfname4in:  string; 
dlname4in:  string; 
dfhame4:  string; 
dlname4:  string; 
dinitial4:  string; 
dinstitution4:  string; 
dorder4:  string; 

dfname5in:  string; 
dlname5in:  string; 
dfname5:  string; 
dlname5:  string; 
dinitiab:  string; 
dinstitution5:  string; 
dorder5:  string; 

dfname6in:  string; 
dlname6in:  string; 
dfhame6:  string; 
dlname6:  string; 
dinitial6:  string; 
dinstitution6:  string; 
dorder6:  string; 

dPaperNumber:  string; 

dbFName  :  string; 
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dbLName  :  string; 
dbHonorific  :  string; 
dbEmail :  string; 

addinfo:  string; 

function  MixCaseStr(S:  string):  string; 

implementation 
{$R  *.DFM} 

{  } 

function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case.  } 

var 

i:  integer; 

begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  'z')  then 

Dec(S[l],  32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  'A')  and  (S[i]  <=  *Z')  and  (S[i-l]o' ')  and  (S[i-l]o'-')  and  (S[i-l]o'c')  then 

Inc(S[i],  32); 

MixCaseStr  :=  S; 


procedure  TForml.FormCreate(  Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{Initialize  HTML  page  } 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 
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{  Get  data  } 

dANumber:=  getsmallfield  ('ANumber'); 
dANumberint:=  strtoint  (dANumber); 
dtitle:=  getsmallfield  ('title'); 


dkeywordl 
dkeyword2 
dkeyword3 


=  getsmallfield  ('keyword  1'); 
=  getsmallfield  ('keyword2'); 
=  getsmallfield  ('keyword3'); 


theabstract  :=  TStringList. create; 
CGEEnvDatal.getTextArea(  'abstract',  theabstract); 

dcontactOrder:=  getsmallfield  ('contactOrder'); 

{get  data  on  second  author  position} 
dfname2in:=  getsmallfield  ('fhame2'); 
dlname2in:=  getsmallfield  ('lname2'); 

if  (dfhame2in  =  ")  and  (dlname2in  = ")  then  dorder2:=  "      {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 

dorder2:=  getsmallfield  ('order2'); 
dinitial2:=  getsmallfield  ('initial2'); 
dinstitution2:=  getsmallfield  ('institution2'); 

{Format  the  Names} 

dfname2:=  MixCaseStr  (dfname2in); 
dlname2:=  MixCaseStr  (dlname2in) 
end;  {if} 


{get  data  on  third  author  position} 

dfhame3in:=  getsmallfield  ('fname3'); 
dlname3in:=  getsmallfield  ('lname3'); 

if  (dfhame3in  =  ")  and  (dlname3in  =  ")  then  dorder3:=  "      {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 

dorder3:=  getsmallfield  ('order3'); 
dinitial3:=  getsmallfield  ('initiaB'); 
dinstitution3:=  getsmallfield  ('institution3'); 
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{Format  the  Names} 

dfname3:=  MixCaseStr  (dfname3in); 
dlname3:=  MixCaseStr  (dlname3in) 
end;  {if} 


{get  data  on  fourth  author  position} 

dfname4in:=  getsmallfield  ('fname4'); 
dlname4in:=  getsmallfield  ('lname4'); 

if  (dmame4in  = ")  and  (dlname4in  = ")  then  dorder4:= "      {Remove  the  number  if  there  is 
no  name} 

else  begin 

{get  the  rest  of  the  info} 

dorder4:=  getsmallfield  ('order4'); 
dinitial4:=  getsmallfield  ('initiaW); 
dinstitution4:=  getsmallfield  ('institution^'); 

{Format  the  Names} 

dfname4:=  MixCaseStr  (dfhame4in); 
dlname4:=  MixCaseStr  (dlname4in) 
end;  {if} 


{get  data  on  fifth  author  position} 

dfname5in:=  getsmallfield  ('fhame5'); 
dlname5in:=  getsmallfield  ('lname5'); 


name} 


if  (dfname5in  = ")  and  (dlname5in  =  ")  then  dorder5:=  "      {Remove  the  number  if  there  is  no 
else  begin 

{get  the  rest  of  the  info} 

dorder5:=  getsmallfield  ('order5'); 
dinitial5:=  getsmallfield  ('initial5'); 
dinstitution5:=  getsmallfield  ('institution5'); 

{Format  the  Names} 

dfname5:=  MixCaseStr  (dfname5in); 
dlname5:=  MixCaseStr  (dlname5in) 
end;  {if} 

{get  data  on  sixth  author  position} 
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dfriame6in:=  getsmallfield  ('ftiame6'); 
dlname6in:=  getsmallfield  ('lname6'); 

if  (dfhame6in  =  ")  and  (dlname6in  =  ")  then  dorder6:=  "      {Remove  the  number  if  there  is  no 
name} 

else  begin 

{get  the  rest  of  the  info} 

dorder6:=  getsmallfield  ('order6'); 
dinitial6:=  getsmallfield  ('initial6'); 
dinstitution6:=  getsmallfield  ('institution6'); 

{Format  the  Names} 

dfhame6:=  MixCaseStr  (dfhame6in); 
dlname6:=  MixCaseStr  (dlname6in) 
end;  {if} 

{if  there  are  no  other  authors,  then  do  not  place  a  number  in  contactAuthorNumber} 
if  (dorder2  = ")  and  (dorder3  = ")  and  (dorder4  =  ")and  (dorder5  =  ")and  (dorder6  = ")  then 
dcontactOrder:= "; 

{  Place  Data  into  SUBMISSION  Table} 

with  Articles  do 
begin 

{Append  new  submission  data  to  SUBMISSION  Table} 

open; 

AppendRecord([nil,  dtitle,  nil,  nil,  dANumberint,  nil,  nil,  nil,  dkeywordl,  dkeyword2, 
dkeyworcB, 

nil,  dcontactOrder,  dFName2,  dLName2,  dlnitial2,  dInstitution2,  dOrder2,  dFName3, 
dLName3, 

dlnitial3,  dInstitution3,  dOrder3,  dFName4,  dLName4,  dlnitial4,  dInstitution4, 
dOrder4, 

dFName5,  dLName5,  dlnitial5,  dInstitution5,  dOrder5,  dFName6,  dLName6, 
dlnitial6,  dInstitution6, 

dOrder6]); 

edit; 

CGIDB 1 .  StringlistToMemo(theabstract,  fieldbyname(,Abstract')); 

theabstract.free; 

{Get  the  Paper_Number  for  presentation  as  the  Registration  #.} 

last; 

dPaper_Number:=fieldbyname(Paper_Number').asstring; 

close; 
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end;  {with  Articles} 

{  Get  Name  Information  for  next  html  page  J 

with  Authors  do  begin 

{  Move  to  proper  record) 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{Get  Name  Data} 

edit; 

dbFName  :=  fieldByName('FName').AsString; 

dbLName  :=  fieldByName(LName').AsString; 

dbHonorific  :=  fieldByNameCHonorific^.AsString; 

dbEmail  :=  fieldByName('Emair).AsString; 

close; 

end;  {With  Authors} 


{       SendMaill.TO_Address:=  dbEmail; 

SendMaill.TO_Name:=  dbHonorific  +  "  +  dbFName  +  "  +  dbLName; 
SendMail  1  .action:=Send_Mail;} 


{  Send  the  Final  page    } 

send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEAE»<BODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  on<BR>'); 

send  ('Signals,  Systems,  &  Computers</center></H2>'); 

sendhr; 

sendhdr  (T,  'Confirm  New  Article  Submission'); 

send  ('<P>Thank  you '); 

send  (dbHonorific  +  "  +  dbFName  +  "  +  dbLName  +  '. '); 

send  ('<P>  Your  article  information  has  been  added  to  the  conference'); 

send  ('records.  <b>Your  Registration  Number  is:  '+dPaper_Number+'<brx/b>'); 

send  ('<i>Be  sure  that  you  write  this  number  down</i>  or  print  out  a  copy  of  this  page. '); 
send  ('You  will  need  this  number  when  you  send  in  your  extended  summary. '); 
sendhdr  ('3','The  filename  for  your  extended  summary  will  be  the  registration  number!'); 
send  (Tor  example,  if  your  Registration  Number  is  15,  the  file  which  contains  your  summary 
should  be  named '); 
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send  ('<B>15.ps</B>  if  it"s  a  postscript  file,  or  <B>15.txt</B>  if  it"s  an  ASCII  file.'); 

send  ('<P>You  must  now  FTP  your  extended  summary.  You  may  use  your  own'); 

send  (TTP  software  or  the  program  you  down-loaded  from  the  <A'); 

send  (*HREF="http://13 1 .  120.20.70/prototype/procl22.htm'*>Procedures  Page  </A>'); 

send  ('Be  sure  you  include  the  Title  of  the  Article  and  the  Author  names'); 

send  ('  in  the  text  of  the  summary.'); 

send  ('<P>Log  on  to  our  FTP  Server  using  the  following  information:<BR>'); 
send  ('server  address:  <b>131.120.20.70</bxbr> «); 
send  ('userED:  <b»guest</bxbr> '); 
send  ('password:  <t»asilconf</bxbr>'); 

send  ('<P>Thank  you  for  using  our  online  submission  process.  We  hope'); 
send  ('that  you  found  it  helpful.  Please  send  any  comments  to'); 
send  ('mikec@nps.navy.mil'); 

send("<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility">*); 

send('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
send('Conference  On-line  Submission  Page</A>'); 
send  ('</BODYx/HTML>'); 

CGBEnvDatal  closeStdout; 
closeApp(  application ); 

end;     {with  CGEEnvData  1 } 

end;    {FormCreate} 

{procedure  TForml.SendMail(DataSet:  TDataset); 

var 

dbFName  :  string; 
dbLName  :  string; 
dbHonorific  :  string; 
dbEmail :  string; 


begin 


with  Authors  do  begin 

open; 

first; 

edit; 
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moveby(dANumberint- 1 ); 

dbFName  :=  fieldByName(TName')AsString; 

dbLName  :=  fieldByName('LName').AsString; 

dbHonorific  :=  fieldByNameCHonorificO.AsString; 

dbEmail  :=  fieldByName('Emair).AsString; 

close; 

end;    { with  Authors } 


{      SendMail  1  .TO_Address:=  dbEmail; 

SendMail  l.TO_Name:=  dbHonorific  +  "  +  dbFName  +  "  +  dbLName; 

SendMail  l.action:=  SendMail; 

end;  {Sendmail} 


{procedure  TForml.onmailinfo(Sender:  TObject;  info:  Maillnfo; 
addinfo:  String); 
begin 

CGIEnvDatal  send  ('<P>'); 

CGIEnvDatal. sendhdr(T,  Mail  Status'); 

case  info  of 

Available  : 
begin 

if  SendMail  1. status  =  Available  then 

CGIEnvDatal. send  ('Message  was  sent.') 

else 
begin 
CGIEnvDatal. send(  'mailform.exe  :  something  went  wrong<br>' ); 
CGIEnvDatal. send('Sendmail  status  is: '); 
case  SendMail  1.  status  of 

ServerConnected:  CGIEnvDatal.send(  'ServerConnected: ' ); 
InvalidServer:  CGIEnvDatal. send(  'InvalidServer: ' ); 
NoWinsock:  CGIEnvDatal. send(  TSfoWinsock: ' ); 
NoMailServer:  CGIEnvDatal. send(  "NoMail Server: ' ); 
MailDestinationError:  CGIEnvDatal.send(  'MailDestinationError: ' ); 
MailOriginError:  CGIEnvDatal. send(  'MailOriginError: ' ); 
ProtocolError:  CGIEnvDatal. send(  Protocol  Error: ' ); 
SocketError.  CGIEnvDatal. send(  'SocketError: ' ); 
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ReadError:  CGDEnvDatal.send(  'ReadError: ' ); 

WriteError:  CGIEnvDatal.send(  'WriteError: ' ); 

AlreadyBusy:  CGIEnvDatal.send(  'AlreadyBusy: ' ); 

Busy:  CGIEnvDatal.send(  Busy: ' ); 

PrematureDisconnect:  CGIEnvDatal.send(  PrematureDisconnect: ' ); 

end; 
CGIEnvDatal.send('info  is: »); 
case  info  of 

ServerConnected:  CGIEnvDatal.send(  'ServerConnected: ' ); 

ServerDisconnected:  CGIEnvDatal.send(  'Server Disconnected: ' ); 

SendingMessage:  CGIEnvDatal.send(  'SendingMessage: ' ); 

PrematureDisconnect:  CGIEnvDatal.send(  PrematureDisconnect: ' ); 

Recipient.  CGIEnvDatal.send(  Recipient: ' ); 

BadAddress:  CGIEnvDatal.send(  'BadAddress: ' ); 

ProtocolError:  CGIEnvDatal.send(  Protocol  Error: ' ); 

SocketError:  CGIEnvDatal.send(  'SocketError: ' ); 

ReadError:  CGIEnvDatal.send(  'ReadError: ' ); 

WriteError:  CGIEnvDatal.send(  'WriteError: ' ); 

end; 


CGIEnvDatal.send(  addinfo ); 
end;  {else} 


{       end;  {if} 
{    end;  {case} 

{    CGIEnvDatal.closeStdout; 
closeApp(  application ); 

end;  } 

end. 
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APPENDIX  F.  ADMINISTRATION  SUB-SYSTEM  CODE 

This  appendix  contains  the  HTML  and  Delphi  code  for  the  HTML  documents  and  Delphi 
executables  that  comprise  the  Administration  Sub-system.  The  relationships  of  the  programs  is 
depicted  in  Figure  F-l. 
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Adminpwd.exe 


Auchangs.exe 
Viewchng.exe 


Artledit.exe 
Artlsrch.exe 


Sessions.exe 


Makechng.exe 
Nochange.exe     Inputau.exe 
Authsrch.exe 


Artlauth.exe 


Auadd.exe 


Aumulti.exe 


Sessedit.exe  Sessdel.exe 

Sessedt2.exe  Sessdel2.exe 

l 
Sessadd.exe      Sessdel3.exe 

Sessadd2.exe 

Keywords.exe 


Auedit.exe 


Artlview.exe 
Artlpost.exe 


Authl32.exe 


Keyeditexe       Keyadd.exe     Keydel.exe 
Keyedit2.exe     Keyadd2.exe    Keydel2.exe 

Keydel3.exe 


O 


Invite.exe 


Invite2.exe 


Choose.exe 
Choose2.exe 


Assign.exe 


Assign2.exe 

I 

Assign3.exe 


Timesl.exe 

i 
i 

Times2.exe 
Times3.exe 


Passwds.exe 


Pwdmod.exe   Pwdadd.exe     Pwddel.exe 
I  I 

Pwdadd2.exe    PwddeI2.exe 


P  Sess.exe 


P_Artl.exe 
P_Artll2.exe 

P  Artfil.exe 


PAcceptexe 

r—^ , 

P_accall.exe         P_Accep2.exe 
P_Accep3.exe 


P  Accscr.exe 


P  Accfil.exe 


P_abscat.exe 

I 
Prabsca3.exe 


Figure  F-l.  Administration  Sub-system. 
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UserlD  and  Password  verification  page:  Admin20.htm 

<HTML> 

<HEAD><TITLE>Asilomar  Signals,  Systems,  and  Computers</TITLEx/HEAD> 

<BODY  bgcolor=FFFFFF> 

<centerxH2>Asilomar  Conference  on<BR> 

Signals,  Systems,  &  Computers</center></H2> 

<H  1  >System  Administration</H  1  > 

<P>  This  page  is  intended  for  the  exclusive  use  of  the  System  Administrator  for  the  Asilomar 

Conference  on  Signals,  Systems,  &  Computers. 

<FORM  ACTION="../cgi-win/Adminpwd.exe "  METHOD="POST"> 

<HR><CENTER> 

<B>User  name:      </BxINPUT  NAME="userid"  Size="20"  TYPE="text"> 

<B>Password:      </B><INPUT  NAME="pwd"  Size="20"  TYPE="password"> 

<INPUT  NAME="flag"  Size="3"  TYPE="hidden"  Value="0"> 

<P><INPUT  TYPE="submit"  Value="Submit  Password*^    <INPUT  TYPE="resetm 

VALUE="Clear  Values"x/CENTER> 

<Pxhr><P> 

<IMG  SRC="asil2b0.gif "  align=left  alt=" Asilomar  facility"> 

Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar 

Conference  On-line  Submission  Page</A> 

</BODY></HTML> 
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System  Administration  Main  Menu:  Adminpwd.exe 


unit  Adm_pwd; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi,  Cgidb; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
Table  l:TTable; 
Query  1:  TQuery; 
CGE)B1:TCGIDB; 
CGEEnvDatal:  TCGEnvData; 
Table  lUserlD:  TStringField; 
Table  1  Password:  TStringField; 
Query  1  Password:  TStringField; 

procedure  FormCreate(  Sender:  TObject); 

private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
dUserlD:  string; 
dpwd:  string; 
dbpassword:  string; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 

begin 
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with  CGBEnvDatal  do  begin 

webSitelNff  ilename:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{  Get  fields  from  search  page  } 

dUserID:=  getsmallfield  (TJserlD'); 

dpwd:=  getsmallfield  ('pwd'); 

dflag:=  getsmallfield  ('flag'); 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ("</HEADxBODY  bgcolor=FFFFFF>'); 

end; 

{Retrieve  Password  of  the  given  User} 

with  Query  1  do  begin 

close; 

sql. clear; 

sql.add('Select*FROM  Admin  WHERE  UserlD  =  "'  +  dUserED  +  ""); 

open; 

Table  1.  Open; 

Table  1. First; 

dbpassword  :=  fieldByName(TJassword').Asstring; 

Table  1.  Close; 

end; 


with  cgiEnvDatal  do  begin 

{Determine  whether  password  was  correct} 

if  (dbpassword  =  dpwd)  or  (dflag  =  T)  then  begin  {password  was  correct  or  flag  is 

set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

send('<centerxh3>DatabaseFunctions</h3>'); 
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{Review  changes  to  Author  data  Button} 

send('<PxFORM  ACTION="../cgi-win/auchangs.exe"  METHOD="POST">'); 
send('<INPUTNAME="flag"  TYPE="hidden"  Value="  1  ">'); 
send('<PxINPUT  TYPE- 'submit"  Value-'Review Changes  to  Author 
Information"></FORM>'); 

{Modify  Authors  Button} 

send('<PxFORM  ACTION="../cgi-win/inputau.exe"  METHOD="POST">*); 
send('<INPUT  NAME="flag"  TYPE=,'hidden,,  Value="  1  ">'); 
send("<PxINPUT  TYPE="  submit"  Value="   Edit  Author  Information    " 
Size="30"x/FORM>'); 

{Modify  Articles  Button} 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="  1  ">'); 
send('<PxINPUT  TYPE="submit"  Value="      Edit  Article  data      " 
Size="30"x/FORM>*); 

{Modify  Sessions  Button} 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD="POST">*); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value='i  ">*); 

send('<PxINPUT  TYPE="submit"  Value="        Edit  Sessions        "  ></FORM>*); 

{Modify  Keywords  Button} 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD="POST,,>'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<PxINPUT  TYPE="submit"  Value="        Edit  Keywords        "  ></FORM>'); 

{Invite  Articles  Button} 

send('<P><FORM  ACTION="../cgi-win/Invite.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="  1  ">*); 
send(*<P><CENTER><INPUT  TYPE="submit"  Value="  Invite  Articles 
"x/CENTERx/FORM>'); 

{Accept/reject  Articles  Button} 

send('<PxFORM  ACTION="../cgi-win/Choose.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="  1  ">'); 
send('<PxCENTERxlNPUT  TYPE="  submit"  Value- '  Accept  /  Reject  Articles 
"x/CENTERx/FORM>'); 

{Assign  Articles  to  Sessions  Button} 

send('<PxFORM  ACTION="../cgi-win/Assign.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="  1  ">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="  Assign  Articles  to  Sessions  " 
x/centerx/FORM>'); 
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{Assign  Presentation  Times  to  Articles  Button} 

send('<PxFORM  ACTION="../cgi-win/Times.exe"  METHOD^'POST'V); 
send('<INPUT  NAME="flagM  TYPE="hidden"  Value="l">'); 

send('<P><CENTER><INPUT  TYPE="submit"  Value="  Assign  Presentation  Times  to 
Articles"x/CENTER></FORM>'); 

{Modify  Passwords  Button} 

send('<PxFORM  ACTION="../cgi-win/Passwds.exe"  METHOD="POST">'); 
send('<INPUTNAME="flag"  TYPE="hidden"  Valuer"  l'V); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="  Modify  Passwords  " 
x/centerx/FORM>'); 

{Print  Session  List  Button} 

send('<hrxcenterxh3>PrintFunctions</h3x/center>'); 
send(*<PxFORM  ACTION="../cgi-win/P_sess.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 
send('<PxCENTERxlNPUT  TYPE=" submit"  Value="Print  Session 
list"x/CENTERx/FORM>*); 

{Print  Article  Information  Button} 

send(*<PxFORM  ACTION="../cgi-win/p_artl.exe"  METHOD="POST">'); 
send(,<INPUTNAME=,,flag"  TYPE="hidden"  Value="lM>'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Print  Article 
Information,,x/CENTERx/FORM>*); 

{Print  Article  accept/reject  Button} 

send(*<PxFORM  ACTION="../cgi-win/p_accept.exe"  METHOD="POST',>*); 
send(*<INPUT  NAME="flag"  TYPE="hidden"  Value="l',>,); 
send("<PxCENTERxlNPUT  TYPE- 'submit"  Value="Print  Article  Accept/Reject 
notice"x/CENTERx/FORM>'); 

{Print  Abstract  Catalog  Button} 

send('<P><FORM  ACTION="../cgi-win/p_abscat.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="  1  ">*); 
send('<PxCENTER><INPUT  TYPE="submit"  Value="Print  Abstract 
Catalog"x/CENTERx/FORM>'); 
end 

else  begin      {Password  **incorrect**} 

send('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  & 
Computers</H2x/center>'); 
sendhr; 
send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2></center>'); 
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send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to 
login  again. </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 
send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
send  ('prosecution  for  your  actions.<BR>'); 
end; 


send('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar 
facility"^); 

sendCReturn  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 

end. 
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Author  Changes:  AuChange.exe 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGDEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

TempAuthors:  TTable; 

Query  1:  TQuery; 

Query  lFName:  TStringField; 

Query  lLName:  TStringField; 

Query  lEditnumber:  TIntegerField; 

Query  1  Honorific:  TStringField; 

Query  1  Institution:  TStringField; 

Query  1  Department:  TStringField; 

Query  lANumber:  TIntegerField; 

Query  1  Initial:  TStringField; 

Query  IMailstop:  TStringField; 

Query  lAddressStreet:  TStringField; 

Query  lAddressCity:  TStringField; 

Query  lAddressZip:  TStringField; 

Query  lPhoneLocalNumber:  TStringField; 

Query  lPhoneFaxNumber:  TStringField; 

QuerylEmail:  TStringField; 

Query  1  Country:  TStringField; 

Query  lAddressState:  TStringField; 

procedure  FormCreate( Sender:  TObject); 

procedure  CGIDBOnSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 
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($R  *  DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 

var 
count:  integer; 
countstr:  string; 

dflag:  string;  {valid  program  call  variable} 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{  HTML  page  header } 

send  (*<HTMLxHEAD>*); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  '  1')  then  begin     {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr; 

{Display  all  enrties  in  TEMP  AUTHOR  Table,  ordered  by  ANumber,  with  Editnumber 
HotLink} 

with  query  1  do  begin 

prepare;      {  Optimizes  query  } 
close;        {  should  already  be  closed  } 

sql.  clear; 

sql.add(  'Select  *  FROM  TempAuth ' ); 

sql.add(  'Order  by  ANumber ' ); 
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open; 

count:=  Recordcount; 
countstr:=  inttostr  (count); 

send  ('<P>There  are  '+  countstr  +'  records  to  review. <P>'); 
CGIDBl.DrawTable; 
send  ('<P>'); 
end;  {with  queryl  do} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send('<P><CENTER><INPUT  TYPE="submit"  Value=,,Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end  {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strong></H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 


send  ('<Pxhr><PxIMG  SRC- '../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'V); 

send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

{Send  Editnumber  as  a  Hot  Link} 
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procedure  TForml.CGIDBOnSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s:='<AHREF=V/cgi-win/ViewChng.exe?'+ 
currentrecord.fieldbyNameCEditnumber').  AsString  +  '">' 

+  currentrecord.FieldbyName(rEditnumber').AsString  +  '</A>'; 

end; 
end. 
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View  changes:  ViewChng.exe 

unit  Viewchg; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
CGIEnvDatal:  TCGIEnvData; 
CGIDB  1:TCGIDB; 
TempAuthors:  TTable; 
Authors:  TTable; 
procedure  FormCreate(Sender:  TObject); 

private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForm  1  .FormCreate(Sender:  TObject); 
var 

dANumber:  string; 

dENumber:  string; 

dblFName:  string; 

dblLName:  string; 

dbl Initial:  string; 

dbl  Honorific:  string; 

dbl  Institution:  string; 

dbl  Department:  string; 

dblMailstop:  string; 

dblAddressStreet:  string; 

dblAddressCity:  string; 
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dblAddressState:  string; 
dblAddressZip:  string; 
dbl  Country:  string; 
dblPhoneLocalNumber:  string; 
dblPhoneFaxNumber:  string; 
dbl  Email:  string; 

db2FName:  string; 
db2LName:  string; 
db2Initial:  string; 
db2Honorific:  string; 
db2Institution:  string; 
db2Department:  string; 
db2Mailstop:  string; 
db2Address_Street:  string; 
db2Address_City:  string; 
db2Address_State:  string; 
db2Address_Zip:  string; 
db2Country:  string; 
db2Phone_LocalNumber:  string; 
db2Phone_FaxNumber:  string; 
db2Email:  string; 

TC:  TDataSet; 

begin     {TFormCreate} 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.  onException:=cgiErrorHandler; 

application.  processMessages; 

create  Stdout; 

sendPrologue; 

send  C<HTMLxHEAD>*); 

SendTitle(Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxHl>Compare  Author  Information</Hlx/center>'); 
send  ('<P>Here  is  the  old  record  along  with  the  submitted  changes.'); 
sendHR; 

{  Get  the  query  string  from  the  address} 

dENumber  :=  CGIQueryStringA; 
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{  Get  the  record  information  from  the  TempAuthor  table  } 

with  TempAuthors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('Editnumber').asstring  o  dENumber  do 
next; 

{ Retrieve  record  } 

dANumber  :=  fieldByName('ANumber').AsString; 

db2FName  :=  fieldByName('FName').AsString; 

db2LName  :=  fieldByNameCLName^.AsString; 

db2Initial  :=  fieldByName('Initiar).AsString; 

db2Honorific  :=  fieldByName('Honorific').AsString; 

db2Institution  :=  fieldByName('Institution').AsString; 

db2Department  :=  fieldByName('Department').AsString; 

db2Mailstop  :=  fieldByNameCMailstop').AsString; 

db2Address_Street  :=  fieldByName(Address_Street').AsString; 

db2Address_City  :=  fieldByName('Address_City').AsString; 

db2Address_State  :=  fieldByName('Address_State').AsString; 

db2Address_Zip  :=  fieldByName('Address_Zip').AsString; 

db2Country  :=  fieldByName('Country').AsString; 

db2Phone_LocalNumber  :=  fieldByNameCPhoneLocalNumber^.AsString; 

db2Phone_FaxNumber  :=  fieldByName(Phone_FaxNumber').AsString; 

db2Email  :=  fieldByName('Emair)AsString; 

Close; 

end;  {with  TempAuthors} 

{  Get  the  record  information  from  the  Author  table  } 

with  Authors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{ Retrieve  record  } 

dblFName  :=  fielcByName('FName').AsString; 
dblLName  :=  fieldByName('LName').AsString; 
dbl  Initial  :=  fieldByName('Initiar).AsString; 
dblHonorific  :=  fieldByName(fHonorific').AsString; 
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dbl  Institution  :=  fieldByName('Institution').AsString; 

dbl Department  :=  fieldByName(T)epartment').AsString; 

dblMailstop  :=  fieldByName('Mailstop').AsString; 

dblAddressStreet  :=  fieldByName(Address_Street').AsString; 

dblAddressCity  :=  fieldByName(Address_City').AsString; 

dblAddressState  :=  fieldByName(Address_State').AsString; 

dblAddressZip  :=  fieldByName(,Address_Zip').AsString; 

dbl  Country  :=  fieldByNameCCountry^.AsString; 

dblPhoneLocalNumber  :=  fieldByName(Phone_LocalNumber').AsString; 

dblPhoneFaxNumber  :=  fieldByName('Phone_FaxNumber').AsString; 

dbl  Email  :=  fieldByName('Emair).AsString; 

Close; 

end;     {with  Authors} 


{Create  new  page} 

send('<P><FORM  ACTION="../cgi-win/MakeChng.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<INPUT  TYPE="hidden"  Name="ANumber"  Value='"+  dANumber  +■">'); 
send('<INPUT  TYPE="hidden"  Name="ENumber"  Value='"+  dENumber  +'">'); 
send('<B>OLD  First  Name:      </BxINPUT  NAME="OFName"  Size="25"  TYPE="text" 
VALUE="'+  dblFName  +'">'); 

send('<brxB>NEW  First  Name:      </BxINPUT  NAME="FName"  Size="25" 
TYPE="text"  VALUE="'+  db2FName  +'">'); 

send('<PxB>OLD  Last  Name:      </BxINPUT  NAME="OLName"  Size="25" 
TYPE="text"  Value=m  +  dblLName  +"'>'); 

send('<br><B>NEW  Last  Name:      </BxINPUT  NAME="LName"  Size="25" 
TYPE="text"  Value='"  +  db2LName  +"'>*); 

send('<PxB>OLD  Middle  Initial:  </BxINPUT  NAME="OInitial"  Size="2" 
TYPE="text"  Value="'  +  dbl  Initial  +'">'); 

send('<brxB>NEW  Middle  Initial:  </BxINPUT  NAME=MInitial"  Size="2"  TYPE="text" 
Value=m  +  db2Initial  +*">'); 

send(*<PxB>OLD  Honorific  Title: </B><lNPUT  NAME=,,OHonorific"  Size=,,5" 
TYPE="text"  Value=*"  +  dblHonorific  +m>*); 

send('<brxB>NEW  Honorific  Title:</BxINPUT  NAME="Honorific"  Size="5" 
TYPE="text"  Value=m  +  db2Honorific  +m>'); 

send('<PxB>OLD  Institution:     </BxlNPUT  NAME="OInstitution"  Size="60" 
TYPE="texT); 

send('  Value=m  +  dbl  Institution  +'">*); 

send('<br><B>NEW  Institution:     </BxINPUT  NAME=,,Institution"  Size=*'60" 
TYPE="text"*); 

send('  Value-'"  +  db2Institution  +'">'); 

send('<PxB>OLD  Department:      </BxINPUT  NAME="ODepartment"  Size- '60" 
TYPE="text"  Value=,M  +  dbl  Department  +'">'); 

send(*<brxB>NEW  Department:     </BxINPUT  NAME="Department"  Size="60" 
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TYPE="texf '  Value=m  +  db2Department  +'">'); 

send('<PxbrxB>OLD  Mail  Stop:  </BxINPUT  NAME="OMailstop"  Size="30" 
TYPE="text"  Value='"  +  dblMailstop  +'">'); 

send('<br><B>NEW  Mail  Stop:     </B><INPUT  NAME="'Mailstop"  Size- '30" 
TYPE="text"  Value=m  +  db2Mailstop  +'">'); 

send('<P><B>OLD  Street  address:  </B><INPUT  NAME="OAddress_Street"  Size="40" 
TYPE="text"'); 

sendCValue="'  +  dblAddress_Street  +'">'); 

send('<brxB>NEW  Street  address:  </BxINPUT  NAME="Address_Street"  Size="40" 
TYPE="text'"); 

sendCValue=w  +  db2Address_Street  +'">'); 

send('<P><B>OLD  City:       </BxINPUT  NAME="OAddress_City"  Size="20" 
TYPE="text"  Value=m  +  dbl  Address_City  +'">'); 

send("<brxB>NEW  City:      </BxINPUT  NAME="Address_City"  Size="20" 
TYPE="text"  Value=*"  +  db2Address_City  +*">*); 

send(*<PxB>OLD  State:      </BxINPUT  NAME="OAddress_State"  Size="2" 
TYPE="text"  Value=*"  +  dbl Address_State  +"•>'); 

send('<brxB>NEW  State:      </BxINPUT  NAME="Address_State"  Size="2" 
TYPE="text"  Value=m  +  db2Address_State  +*">*); 

send('<PxB>OLD  Zip  Code:    </BxINPUT  NAME="OAddress_Zip"  Size="  1 0" 
TYPE="text"  Value=m  +  dblAddress_Zip  +*">*); 

send('<brxB>NEW  Zip  Code:  </BxINPUT  NAME="Address_Zip"  Size="10" 
TYPE="text"  Value=m  +  db2Address_Zip  +*">'); 

send('<PxB>OLD  Country:     </BxINPUT  NAME=,,OCountry"  Size="25"  TYPE="text" 
Value=m  +  db  1  Country  +*">    '); 

send('<brxB>NEW  Country:    </BxINPUT  NAME="Country"  Size="25"  TYPE="text" 
Value="'  +  db2Country  +,M>    *); 

send('<PxB>OLD  Telephone  number  (with  Area/Country  codes):       </BxINPUT 
NAME="OPhone_LocalNumber"  Size="2 1 "'); 

send('  TYPE="text"Value=m  +  dblPhone_LocalNumber +m>,); 

send('<brxB>NEW  Telephone  number  (with  Area/Country  codes):      </BxINPUT 
NAME="Phone_LocalNumber"  Size="2 1 '"); 

sendC  TYPE="text"Value=m  +  db2Phone_LocalNumber  +'">'); 

send('<PxB>OLD  Fax  number  (with  Area/Country  codes):  </BxINPUT 

NAME=,,OPhone_Faxnumber"  Size="2 1 '"); 

send('  TYPE=,,text"Value=m  +  dblPhone_FaxNumber  +'">•); 

send('<brxB>NEW  Fax  number  (with  Area/Country  codes):  </BxINPUT 

NAME="Phone_Faxnumber"  Size="2 1 '"); 

send('  TYPE="text"Value=m  +  db2Phone_FaxNumber  +'">'); 

send('<PxB>OLD  E-mail:  </BxINPUT  NAME="OEmail"  Size="50"  TYPE="text" 

Value="'  + dbl  Email +"*>'); 

send('<brxB>NEW  E-mail:  </BxINPUT  NAME="Email"  Size="50"  TYPE="text" 

Value='"  +  db2Email  +'">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value=MAccept 
Changes"x/CENTER></FORM>'); 
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send(*<PxFORM  ACTION="../cgi-win/Nochange.exe"  METHOD="POSTM>*); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value=Ml">*); 
send('<INPUT  TYPE="hidden"  Name="ENumber"  Value=m+  dENumber  +'">'); 
send(*<PxCENTER><INPUT  TYPE="submit"  Value="Do  NOT  Modify  this  Record. 
Discard  Changes.  "></CENTER></FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE=Mhidden"  Name="flagM  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="  submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForml.FormCreate} 

end. 
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Make  the  Change:  MakeChng.exe 

unit  Makechg; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Authors:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGEDB1:TCGIDB; 

TempAuthors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
dANumber:  string; 
dENumber :  string; 
dANumberint:  integer; 
dFName:  string; 
dLName:  string; 
dlnitial:  string; 
dHonorific:  string; 
dlnstitution:  string; 
dDepartment:  string; 
dMailstop:  string; 
dAddressStreet:  string; 
dAddressCity:  string; 
dAddressState:  string; 
dAddressZip:  string; 
dCountry:  string; 
dPhoneAreaCode:  string; 
dPhoneLocalNumber:  string; 
dPhoneFaxNumber:  string; 
dEmail:  string; 
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dflag:  string;  {valid  program  call} 

implementation 

($R  *.DFM} 

procedure  TForml.FormCreate(  Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{Standard  Header} 

webSiteINTJFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  '1')  then  begin     {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Retrieve  data  from  Form} 

dANumber:=  getsmallfield  ('ANumber'); 
dENumber:=  getsmallfield  ('ENumber'); 
dFName~  getsmallfield  CFName'); 
dLName:=  getsmallfield  ('LName'); 
dlnitial:=  getsmallfield  ('Initial'); 
dHonorific:=  getsmallfield  CHonoriflc'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:^  getsmallfield  ("Department'); 
dMailstop:=  getsmallfield  ('Mailstop'); 
dAddress_Street:=  getsmallfield  ('Address_Street'); 
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dAddress_City:=  getsmallfield  ('AddressCity'); 
dAddress_State:=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('Address_Zip'); 
dCountry:=  getsmallfield  ('Country'); 

dPhone_LocalNumber:=  getsmallfield  ('PhoneJLocalNumber'); 
dPhone_FaxNumber:=  getsmallfield  ('PhoneFaxnumber'); 
dEmail"  getsmallfield  CEmail'); 

{Add  new  information  to  AUTHOR  Table} 

with  Authors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{Update  record  } 

edit; 

SetFields([nil,  dFName,  dLName,  dlnitial,  dHonorific,  dlnstitution,  dDepartment,  dMailstop, 

dAddressStreet,  dAddress_City,  dAddressState,  dAddressZip,  dCountry, 

dPhoneLocalNumber,  dPhoneFaxNumber,  dEmail]); 

post; 

close; 

end;      {with  Authors} 

{Remove  entry  from  TEMPAUTHOR  Table} 

With  TempAuthors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('Editnumber').asstring  o  dENumber  do 
next; 

{Delete  Record} 

delete; 

close; 

end;  {With  TempAuthors} 

{Send  the  Thankyou  page     } 

send  ('<P>The  information  about '  +  dHonorific  +  ' '+  dFName  +' '+  dLName  +' '); 
send  ('has  been  updated  in  our  records. '); 
send  ('</CENTER>'); 
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send('<PxFORM  ACTION="../cgi-win/AuChangs.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send('<PxCENTERxINPUT  TYPE=" submit"  Value- 'Review  changes  to  another 
Author"x/CENTERx/FORM>'); 

sendhr; 

send(*<PxFORM  ACTION=*\./cgi-win/Adminpwd.exe*'  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<P><CENTER><INPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strong></H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<Pxhr><PxIMG  SRC- '../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar*); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  (,</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 
end;    {FormCreate} 

end.  {Application} 

Do  not  make  changes:  NoChanges.exe 

unit  Nochang; 
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interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

TempAuthors:  TTable; 

CGDEnvDatal:  TCGEnvData; 

CGIDB  1:TCGIDB; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 
dENumber :  string; 
dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGDEnvDatal  do 
begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  (,<HTML><HEAD>,); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 
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dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  V)  then  begin     {flag  is  valid} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

dENumber  :=  getsmallfield  ('ENumber'); 

{Delete  information  from  TEMP  AUTHOR  Table} 

with  TempAuthors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('Editnumber').asstring  o  dENumber  do 
next; 

{Delete  record  } 

delete; 

close; 

end;      {with  TempAuthors} 

{Send  the  Confirmation} 

send  ('<P>The  temporary  changes  to  the  Author  data  have  been  deleted  from  our  records.'); 

send(*<PxFORM  ACTION="../cgi-win/AuChangs.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value-'Review  changes  to  another 
Author"x/CENTERx/FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send('<PxCENTERxlNPUT  TYPE=" submit"  Value="Go  to  System  Admin  Options 
page"x/CENTERx/FORM>'); 
end  {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2></center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 
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send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 

send  ('<P><hrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF="http://13 1. 120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  (*</BODY></HTML>*); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;    {FormCreate} 

end.  {Application} 
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Input  Author  Name:  Inputau.exe 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
CGEEnvDatal:  TCGIEnvData; 
CGIDB  1:TCGIDB; 

procedure  FormCreate(  Sender:  TObject); 

private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 

begin 

with  CGEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 
sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
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send  ('</HEADxBODY  bgcolor=FFFFFF>'); 
{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if(dflag  =  T)  then  begin    {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


send('<Hl>Edit  Author  Information</Hl>'); 

send('<P>To  locate  an  author  name  in  the  database,  please  enter  the  name  below: '); 
send('<PxFORM  METHOD="POST"  ACTION=M../cgi-win/AuthSrch.exe  ">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<B>First  Name:      </BxINPUT  NAME=*Tirst"  Size="20"  TYPE="TEXTt">  '); 
send('<B>Last  Name:      </BxINPUT  NAME="last"  Size="20"  TYPE="TEXT">'); 
send('<B>Middle  Initial:  </BxINPUT  NAME=" initial"  Size="2"  TYPE="TEXT">'); 

send(*<PxCENTERxINPUT  TYPE="submit"  Value- 'submit  author  name">'); 

send(*<INPUT  TYPE="reset"  VALUE="Clear  this  form"x/CENTER>'); 

send  ('</form>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi- win/ Admmpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send('<PxCENTERxINPUT  TYPE="*submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTER></FORM>'); 
end  {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  (*<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 
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send  ('<PxhrxPxIMG  SRC- '../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  (Tleturn  to  the  <A  HREF="http://13 1 .  120.20.70/Index.html">Asilomar"); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGBEnvDatal} 

end;  {Procedure  FormCreate} 

end. 
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Add  a  new  Author:  AuAdd.exe 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
CGflEnvDatal:  TCGIEnvData; 
CGIDB  1:TCGIDB; 
DataSourcel:  TDataSource; 
Authors:  TTable; 

procedure  FormCreate(  Sender:  TObject); 

private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dflag:  string;  {valid  program  call} 

{Database  Variables} 

cLANumbenstring; 
dFName:  string; 
dLName:  string; 
dlnitial:  string; 
dHonorific:  string; 
dlnstitution:  string; 
dDepartment:  string; 
dMailstop:  string; 
dAddressStreet:  string; 
dAddress_City:  string; 
dAddressState:  string; 
dAddressZip:  string; 
dCountry:  string; 
dPhoneAreaCode:  string; 
dPhoneLocalNumber:  string; 
dPhoneFaxNumber:  string; 
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dEmail:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate( Sender:  TObject); 
begin 

with  CGEEnvDatal  do  begin 

{Standard  Header} 

webSiteIMFilename:=paramstr(  1 ); 

application.onException.-cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  '1')  then  begin     {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Get  data  from  FORM} 

dFName:=  getsmallfield  ('FName'); 
dLName~  getsmallfield  ('LName'); 
dlnitial:=  getsmallfield  ('Initial'); 
dHonorific:=  getsmallfield  CHonorific'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:=  getsmallfield  ('Department'); 
dMailstop:=  getsmallfield  ('Mailstop'); 
dAddress_Street:=  getsmallfield  ('AddressStreet'); 
dAddress_City:=  getsmallfield  ('Address_City'); 
dAddress_State:=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('AddressZip'); 
dCountry:=  getsmallfield  ('Country'); 
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dPhone_LocalNumber:=  getsmallfield  ('PhoneLocalNumber'); 
dPhone_FaxNumber:=  getsmallfield  (PhoneFaxnumber'); 
dEmail:=  getsmallfield  ('Email'); 

{Append  data  to  AUTHOR  Table} 

Authors.open; 

Authors.AppendRecord([nil,  dFName,  dLName,  dlnitial,  dHonorific,  destitution, 
dDepartment,  dMailstop, 

dAddressStreet,  dAddressCity,  dAddressState,  dAddressZip,  dCountry,  nil  (old 
areacode}, 

dPhoneJLocalNumber,  dPhoneFaxNumber,  dEmail]); 

Authors,  close; 

{Send  the  Thankyou  page   } 

send  ('<P>The  information  about '  +  dHonorific  +  ' '+  dFName  +' '+  dLName  +' '); 
send  ('has  been  added  to  our  records.'); 
send  (*</CENTER>'); 

send('<P><FORM  ACTION="../cgi-win/InputAu.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Edit  another 
Author"x/CENTERx/FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 

send('<PxCENTERxlNPUT  TYPE- 'submit"  Value- 'Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 


send  ('<P><hrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">*); 
send  CReturn  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar*); 
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send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGEEnvDatal} 

end;    {FormCreate} 

end.  {Application} 
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Multiple  Matches:  AuMulti.exe 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGEEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 

var 

{Database  Variables} 

dANumber:  string; 
dbFName:  string; 
dbLName:  string; 
dblnitial:  string; 
dbHonorific:  string; 
dblnstitution:  string; 
dbDepartment:  string; 
dbMailstop:  string; 
dbAddressStreet:  string; 
dbAddressCity:  string; 
dbAddressState:  string; 
dbAddressZip:  string; 
dbCountry:  string; 
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dbPhoneLocalNumber:  string; 
dbPhoneFaxNumber:  string; 
dbEmail:  string; 

TC:  TDataSet; 

begin     {TFormCreate} 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.  onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{  Get  the  query  string  from  the  address} 

dANumber  :=  CGIQueryStringA; 

{  Get  the  record  information  } 

with  Table  1  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{ Retrieve  record  } 

dbFName  :=  fieldByName('FName').AsString; 

dbLName  :=  fieldByName('LName').AsString; 

dblnitial  :=  fieldByName('Initiar).AsString; 

dbHonorific  :=  fieldByName('Honorific').AsString; 

dblnstitution  :=  fieldByName('Institution').AsString; 

dbDepartment  :=  fieldByName(Department').AsString; 

dbMailstop  :=  fieldByNameCMailstop^.AsString; 

dbAddressStreet  :=  fieldByName('Address_Street').AsString; 

dbAddress_City  :=  fieldByName('Address_City').AsString; 

dbAddressState  :=  fielcByName('Address_State,).AsString; 

dbAddressZip  :=  fieldByName('Address_Zip').AsString; 

dbCountry  :=  fieldByName('Country').AsString; 

dbPhoneLocalNumber  :=  fieldByName('Phone_LocalNumber')AsString; 

dbPhone_FaxNumber  :=  fieldByName(Phone_FaxNumber').AsString; 

dbEmail  :=  fieldByName('Emair)AsString; 
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Close; 
end; 


{Create  new  page} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEAD><BODY  bgcolor=FFFFFF>'); 

send('<centerxHl>Edit  Author  Information</Hl></center>'); 
send  ('<P>We  have  located  the  record  in  the  database.'); 
sendhr; 

{Send  form  with  Author  information} 

send('<PxFORM  ACTION=" AuEdit.exe"  METHOD="POST">'); 
send('<INPUT  NAME="ANumber"  TYPE="hidden"  Value='"+  dANumber  +'">'); 

send(*<B>First  Name:     </BxINPUT  NAME="FName"  Size=M25"  TYPE="text" 
VALUE="*+  dbFName  +'">*); 

send('<B>  Last  Name:      </BxINPUT  NAME="LName"  Size="25"  TYPE="text" 
Value=*"  +  dbLName  +'">'); 

send('<B>  Middle  Initial:  </BxlNPUT  NAME="Initial"  Size="2"  TYPE="text"  Value=m 
+  dblnitial  +,M><HR>*); 

send('<B>Honorific  Title :</BxlNPUT  NAME="Hononfic"  Size="5"  TYPE="text" 
Value=m  +  dbHonorific  +"•>'); 

send('<PxB>Institution:     </BxINPUT  NAME-'Institution"  Size- '60"  TYPE- 'text'"); 

send('  Value=m  +  dblnstitution  +'">*); 

send('<brxB>Department:      </B><INPUT  NAME=,,Department"  Size- '60" 
TYPE="text"  Value='"  +  dbDepartment  +'">'); 

send('<brxB>Mail  Stop:       </BxINPUT  NAME="Mailstop"  Size="30"  TYPE="text" 
Value=m  +  dbMailstop  +'">*); 

send('<PxB>Street  address:  </BxINPUT  NAME="Address_Street"  Size- '40" 
TYPE="textm); 

send(,Value=*"  +  dbAddress_Street  +'">'); 

send('<brxB>City:  </BxINPUT  NAME="Address_Cityn  Size="20"  TYPE="text" 

Value="'  +  dbAddress_City  +'">'); 

send('<B>State:  </BxINPUT  NAME="Address_State"  Size=M2"  TYPE="text" 

Value=m  +  dbAddress_State  +*">'); 

send('<brxB>Zip  Code:       </B><INPUT  NAME=" Address_Zip"  Size="  1 0" 
TYPE="text"  Value=m  +  dbAddress_Zip  +'">'); 

send('<B>Country:         </BxINPUT  NAME="Country"  Size="25"  TYPE=MtextM 
Value="'  +  dbCountry  +'">     '); 

send('<PxB>Telephone  number  (with  Area/Country  codes):       </BxINPUT 
NAME="Phone_LocalNumber"  Size="2 1 '"); 

send('  TYPE=Mtext"Value=m  +  dbPhone_LocalNumber  +'">'); 

send('<br><B>Fax  number  (with  Area/Country  codes):  </BxINPUT 
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NAME="Phone_Faxnumber"  Size="2 1 "'); 

sendC  TYPE="text"Value=m  +  dbPhone_FaxNumber  +'">•); 

send('<brxB>E-mail:         </BxINPUT  NAME="Email"  Size=,,50,,  TYPE="text" 
Value=*"  +  dbEmail  +*">'); 

send("<P><CENTERxINPUT  TYPE="submit"  Value="Submit  Information'^    <INPUT 

TYPE="resetm); 

send('VALUE="Reset  to  Original  Information"></CENTER>,); 

send('<P><FORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD=MPOSTH>'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForml.FormCreate} 

end. 
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Edit  an  Author:  AuEdit.exe 


unit  Auedit; 


interface 


uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
Authors:  TTable; 
CGEnvDatal:  TCGEEnvData; 
CGIDB  1:TCGIDB; 
AuthorsANumber:  TIntegerField; 
AuthorsLName:  TStringField; 
AuthorsFName:  TStringField; 
Authorslnitial:  TStringField; 
AuthorsHonorific:  TStringField; 
Authorslnstitution:  TStringField; 
AuthorsDepartment:  TStringField; 
AuthorsMailstop:  TStringField; 
AuthorsAddressStreet:  TStringField; 
AuthorsAddressCity:  TStringField; 
Authors  AddressState:  TStringField; 
AuthorsAddressZip:  TStringField; 
AuthorsCountry:  TStringField; 
AuthorsPhoneLocalNumber:  TStringField; 
AuthorsPhoneFaxNumber:  TStringField; 
AuthorsEmail:  TStringField; 

procedure  FormCreate(Sender:  TObject); 

private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

{Database  Variables} 
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dANumber:  string; 
dANumberint:  integer; 
dFName:  string; 
dLName:  string; 
dlnitial:  string; 
dHonorific:  string; 
dlnstitution:  string; 
dDepartment:  string; 
dMailstop:  string; 
dAddressStreet:  string; 
dAddressCity:  string; 
dAddressState:  string; 
dAddressZip:  string; 
dCountry:  string; 
dPhone_AreaCode:  string; 
dPhoneJLocalNumber:  string; 
dPhoneFaxNumber:  string; 
dEmail:  string; 

dflag:  string;  (valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForm  1  FormCreate( Sender:  TObject); 

begin 

with  CGEnvDatal  do 
begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 
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dflag:=  getsmallfield  ('flag'); 

if(dflag  =  T)  then  begin     {flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Get  data  from  Form} 

dANumber:=  getsmallfield  ('ANumber'); 
dFName:=  getsmallfield  ('FName'); 
dLName:=  getsmallfield  ('LName'); 
dlnitial:=  getsmallfield  ('Initial'); 
dHonorific:=  getsmallfield  ('Honorific'); 
dInstitution:=  getsmallfield  ('Institution'); 
dDepartment:=  getsmallfield  CDepartment'); 
dMailstop:=  getsmallfield  ('Mailstop'); 
dAddress_Street:=  getsmallfield  ('AddressStreet'); 
dAddress_City:=  getsmallfield  ('AddressCity'); 
dAddress_State:=  getsmallfield  ('AddressState'); 
dAddress_Zip:=  getsmallfield  ('AddressZip'); 
dCountry—  getsmallfield  ('Country'); 

dPhone_LocalNumber:=  getsmallfield  (PhoneLocalNumber'); 
dPhone_FaxNumber:=  getsmallfield  ('PhoneFaxnumber'); 
dEmail:=  getsmallfield  CEmail'); 

dANumberint:=  StrToInt(dANumber);        {  Convert  the  dANumber  back  to  an  integer  } 

with  Authors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dANumber  do 
next; 

{Update  record  } 

edit; 

SetFields([dANumberint,  dFName,  dLName,  dlnitial,  dHonorific,  dlnstitution,  dDepartment, 
dMailstop, 

dAddressStreet,  dAddressCity,  dAddressState,  dAddressZip,  dCountry, 

dPhoneLocalNumber,  dPhoneFaxNumber,  dEmail]); 

post; 

close; 

end;      {with  Authors} 
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{Send  the  Thankyou  page     J 

send  ('<P>The  information  about '  +  dHonorific  +  ' '+  dFName  +' '+  dLName  +' '); 
send  ('has  been  updated  in  our  records.'); 
send  ('</CENTER>'); 

send('<PxFORM  ACTION="../cgi-win/InputAu.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send(*<PxCENTERxINPUT  TYPE="submit"  Value="Edit  another 
Author"></CENTER></FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send(*<INPUT  TYPE="hidden"  Name="flag"  Value=*T*>'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     { with  CGIEnvData  1 } 

end;  {FormCreate} 
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end.  {Application} 
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Edit  an  Article:  ArtlEditexe 

unit  Artedit; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
CGIEnvDatal:  TCGEEnvData; 
CGIDB  1:TCGIDB; 
DataSourcel:  TDataSource; 
Query  1:  TQuery; 
Tablel:TTable; 
Table2:  TTable; 

Table2ANumber:  TIntegerField; 
Table2FName:  TStringField; 
Table2LName:  TStringField; 
Table2Initial:  TStringField; 
Table2Honorific:  TStringField; 
Table2Institution:  TStringField; 
Table2Department:  TStringField; 
Table2Mailstop:  TStringField; 
Table2Address_Street:  TStringField; 
Table2Address_City:  TStringField; 
Table2Address_State:  TStringField; 
Table2Address_Zip:  TStringField; 
Table2Country:  TStringField; 
Table2Phone_LocalNumber:  TStringField; 
Table2Phone_AreaCode:  TStringField; 
Table2Phone_FaxNumber:  TStringField; 
Table2Email:  TStringField; 
Table3:  TTable; 
Table3Number:  TIntegerField; 
Table3Neumonic:  TStringField; 
Query  INeumonic:  TStringField; 
DataSource2:  TDataSource; 
Query2:  TQuery; 
Table4:  TTable; 
Query  1  Number:  TIntegerField; 
Query2Name:  TStringField; 
Table4Number:  TIntegerField; 
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Table4Name:  TStringField; 

Query 2Number:  TIntegerField; 

Table  lPaperNumber:  TIntegerField; 

Table  1  Title:  TStringField; 

Table  1  Invited:  TStringField; 

Table  1  Accepted:  TStringField; 

Table  1  ContactAuthorNumber:  TIntegerField; 

Table  1  Session:  TStringField; 

Table  lOrderlnSession:  TStringField; 

Table  1  PresentationTime:  TStringField; 

Table  1  Keyword  1:  TStringField; 

Table  lKeyword2:  TStringField; 

Table  IKeyworcB:  TStringField; 

Table  1  Abstract:  TMemoField; 

Table  IContactOrder:  TStringField; 

TablelFName2:  TStringField; 

Table  lLName2:  TStringField; 

Tablellnitial2:  TStringField; 

Table  1  Institution2 :  TStringField; 

Table  10rder2:  TStringField; 

Table  lFName3:  TStringField; 

Table  lLName3:  TStringField; 

Table  UnitiaB:  TStringField; 

Table  1  Institution3 :  TStringField; 

Table  10rder3:  TStringField; 

Table  lFName4:  TStringField; 

Table  lLName4:  TStringField; 

Table UnitiaH:  TStringField; 

Table  lInstitution4:  TStringField; 

Table  10rder4:  TStringField; 

TablelFName5:  TStringField; 

Table  lLName5:  TStringField; 

Table  llnitiab:  TStringField; 

Table  1  Institution5 :  TStringField; 

Table  10rder5:  TStringField; 

Table  lFName6:  TStringField; 

Table  lLName6:  TStringField; 

Table  Hnitial6:  TStringField; 

Table  1  Institution6 :  TStringField; 

Table  10rder6:  TStringField; 

procedure  FormCreate(Sender:  TObject); 

private 

{  Private  declarations  } 
public 
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{ Public  declarations  } 
end; 

var 

Forml:  TForml; 

dflag:  string;  {Valid  program  call} 

dbOption:  string;       {Which  action  is  requested} 
i:integer;  {loop  control  variable} 

implementation 

{$R  *.DFM} 

procedure  TForm  1  .FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid  } 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  T)  then  begin     {flag  is  valid} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('In  order  to  select  the  Article  you  would  like  to  view,  you  will  have  to  select  it  from  a 
list  of  articles.'); 

send('You  have  three  options  for  building  this  list:<BR>'); 

{Display  ALL  Articles } 

sendhr; 
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sendhdr  ('3',  'Choose  from  a  list  of  ALL  the  Articles?'); 
send('<PxFORM  ACTION="../cgi-win/ArtlSrch.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send(*<INPUT  TYPE="hidden"  Name="Type"  Value="all">'); 

send('<P><CENTERxINPUT  TYPE=" submit"  Value="Show  me  a  list  of  ALL  of  the  Paper 
Titles"x/CENTERx/FORM>'); 

{Search  by  Article  characteristics} 

send('<PxFORM  METHOD="POST"  ACTION="../cgi-win/ArtlSrch.exe">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">');       {send  flag  for  verification} 
send('<INPUT  TYPE="hidden"  Name="Type"  Value="article">'); 

sendhr; 

sendhdr  ('3',  'Choose  from  a  list  of  Articles  with  these  characteristics?'); 

send('<PxCenterxB>Invited  Papers:  </B><SELECT  NAME="invited">'); 

send('<OPTION>  Do  not  search  on  this  field'); 

send('<OPTION>  Yes'); 

send('<OPTION>No'); 

send('</SELECT>'); 

send('<PxB>Accepted  Papers:  </BxSELECT  NAME="accepted">'); 

send('<OPTION>  Do  not  search  on  this  field'); 

send('<OPTION>  Yes'); 

send(*<OPTION>No*); 

send('</SELECT>'); 

{Pull  Sessions  from  SESSION  Table  and  display  on  pull-down  menu} 

with  Query  1  do  begin 
close; 
sql. clear; 

sql.add('Select  Number,  Neumonic  FROM  Session'); 
open; 

{Build  option  menu  from  query  results  } 

Table3.open; 
Table3.  first; 

send('<PxB>Sessions:  </BxSELECT  NAME="Session">'); 
send('<OPTION>  Do  not  search  on  this  field'); 

for  i  :=  1  to  Recordcount  do  begin 

dbOption:=  Table3  .fieldByName('Neumonic').  Asstring; 

send('<OPTION> '  +dbOption+ "); 

Table3.next; 

end;  {for  all  records  in  the  query  result} 
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send('</SELECT>'); 

Table  1.  close; 

end;  {withQueryl} 

{Pull  Keywords  from  KEYWORD  Table  and  display  on  pull-down  menu} 

with  Query2  do  begin 
close; 
sql.clear; 

sql.add('Select  *  FROM  Keyword '); 
open; 

{Move  records  from  query  result  to  stringlist} 

Table4.open; 
Table4.first; 

send('<PxB>Keyword:  </BxSELECT  NAME="Keyword">'); 
send('<OPTION>  Do  not  search  on  this  field'); 

while  not  Table4.EOF  do  begin 

dbOption:=Table4.fieldByName('Name,).Asstring; 

send('<OPTION> '  +dbOption+ "); 

Table4.next; 

end;  (for  all  records  in  the  query  result} 

send('</SELECT>'); 
end;  {withQuery2} 

send(*<P><INPUT  TYPE="submit"  Value="Show  me  a  list  of  Articles  like  this"> '); 
send('<INPUT  TYPE="reset"  VALUE=MReset  Article  Fields"x/CENTERx/form>'); 


{Search  by  Author  Name 


send('<P><FORM  ACTION="../cgi-win/ArtlSrch.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">');       {send  flag  for  verification} 
send('<INPUT  TYPE="hidden"  Name="Type"  Value="author">*); 

sendhr; 

sendhdr  ('3',  'Choose  from  a  list  of  Articles  by  this  Author?'); 

send  ('<PxCENTERxB>Author  First  Name:  </BxINPUT  NAME="fhame"  Size="25" 
TYPE="text">'); 

send  ('<PxB> Author  Last  Name:    </BxlNPUT  NAME="lname"  Size="25" 
TYPE="text">'); 

send('<P><INPUT  TYPE="submit"  Value="Find  an  Article  by  this  Author"> '); 
send('<INPUT  TYPE="reset"  VALUE="ClearNames"x/CENTERx/form>'); 
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sendhr; 

send('<P><FORM  ACTION=**../cgi-win/Adminpwd.exe"'  METHOD="POST">'); 
send(*<INPUT  TYPE="hidden"  Name="flag"  Value="l">,); 

sendC<PxCENTERxINPUT  TYPE=" submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  (,</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end    {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  (*</BODY></HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

end.   {Application} 
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Search  for  the  Article:  ArtlSrch.exe 

unit  Artsrch; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
Query  1:  TQuery; 
Table  l:TTable; 
Table2:  TTable; 
CGEEnvDatal:  TCGffinvData; 
CGIDB  1:TCGIDB; 
Query2:  TQuery; 
DataSource2:  TDataSource; 
Query  1  Title:  TStringField; 
Query2Title:  TStringField; 
Query  lPaperNumber:  TIntegerField; 
CGIDB2:  TCGIDB; 
Query2Paper_Number:  TIntegerField; 
Table3:  TTable; 
DataSource3:  TDataSource; 
Query3:  TQuery; 
Query3ANumber:  TIntegerField; 
CGEDB3:  TCGIDB; 
Query3FName:  TStringField; 
Query3LName:  TStringField; 
Query 3 Initial:  TStringField; 
Query3Honorific:  TStringField; 
Query3Institution:  TStringField; 
CGIDB4:  TCGIDB; 
DataSource4:  TDataSource; 
Table4:  TTable; 
Query4:  TQuery; 

Query4Paper_Number:  TIntegerField; 
Query4Title:  TStringField; 
Table  1  PaperNumber:  TIntegerField; 
Table  1  Title:  TStringField; 
Table  1  Invited:  TStringField; 
Table  1  Accepted:  TStringField; 
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Table  1  ContactAuthorNumber:  TlntegerField; 

Table  1  Session:  TStringField; 

Table  lOrderlnSession:  TStringField; 

Table lPresentationTime:  TStringField; 

Table  1  Keyword  1:  TStringField; 

Table  lKeyword2:  TStringField; 

Table  lKeyword3:  TStringField; 

Table  1  Abstract:  TMemoField; 

Table  IContactOrder:  TStringField; 

Table  lFName2:  TStringField; 

Table  1  LName2 :  TStringField; 

Table  llnitial2:  TStringField; 

Table  1  Institution2:  TStringField; 

Table  1  Order2 :  TStringField; 

Table  lFName3:  TStringField; 

Table  lLName3:  TStringField; 

Table  UnitiaB:  TStringField; 

Table  1  Institution3 :  TStringField; 

Table  10rder3:  TStringField; 

Table  lFName4:  TStringField; 

Table  lLName4:  TStringField; 

Table  Hnitial4:  TStringField; 

Table  Hnstitution4:  TStringField; 

Table  10rder4:  TStringField; 

Table  lFName5:  TStringField; 

Table  lLName5:  TStringField; 

Table  Hnitial5:  TStringField; 

Table  1  Institution5 :  TStringField; 

Table  10rder5:  TStringField; 

Table  lFName6:  TStringField; 

Table  lLName6:  TStringField; 

Table  Hnitial6:  TStringField; 

Table  Hnstitution6:  TStringField; 

TablelOrder6:  TStringField; 

Table2Paper  Number:  TlntegerField; 

Table2Title:  TStringField; 

Table2Invited:  TStringField; 

Table2Accepted:  TStringField; 

Table2ContactAuthorNumber:  TlntegerField; 

Table2Session:  TStringField; 

Table20rderInSession:  TStringField; 

Table2PresentationTime:  TStringField; 

Table2Keywordl:  TStringField; 

Table2Keyword2:  TStringField; 

Table2Keyword3:  TStringField; 
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Table2Abstract:  TMemoField; 
Table2ContactOrder:  TStringField; 
Table2FName2:  TStringField; 
Table2LName2:  TStringField; 
Table2Initial2:  TStringField; 
Table2Institution2:  TStringField; 
Table20rder2:  TStringField; 
Table2FName3:  TStringField; 
Table2LName3:  TStringField; 
Table2Initial3:  TStringField; 
Table2Institution3:  TStringField; 
Table20rder3:  TStringField; 
Table2FName4:  TStringField; 
Table2LName4:  TStringField; 
Table2Initial4:  TStringField; 
Table2Institution4:  TStringField; 
Table20rder4:  TStringField; 
Table2FName5:  TStringField; 
Table2LName5:  TStringField; 
Table2Initial5:  TStringField; 
Table2Institution5:  TStringField; 
Table20rder5:  TStringField; 
Table2FName6:  TStringField; 
Table2LName6:  TStringField; 
Table2Initial6:  TStringField; 
Table2Institution6:  TStringField; 
Table20rder6:  TStringField; 
Table4Paper_Number:  TIntegerField; 
Table4Title:  TStringField; 
Table4Invited:  TStringField; 
Table4Accepted:  TStringField; 
Table4ContactAuthorNumber:  TIntegerField; 
Table4Session:  TStringField; 
Table40rderInSession:  TStringField; 
Table4PresentationTime:  TStringField; 
Table4Keywordl:  TStringField; 
Table4Keyword2:  TStringField; 
Table4Keyword3:  TStringField; 
Table4Abstract:  TMemoField; 
Table4ContactOrder:  TStringField; 
Table4FName2:  TStringField; 
Table4LName2:  TStringField; 
Table4Initial2:  TStringField; 
Table4Institution2:  TStringField; 
Table40rder2:  TStringField; 
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Table4FName3:  TStringField; 

Table4LName3:  TStringField; 

Table4Initial3:  TStringField; 

Table4Institution3:  TStringField; 

Table40rder3:  TStringField; 

Table4FName4:  TStringField; 

Table4LName4:  TStringField; 

Table4Initial4:  TStringField; 

Table4Institution4:  TStringField; 

Table40rder4:  TStringField; 

Table4FName5:  TStringField; 

Table4LName5:  TStringField; 

Table4Initial5:  TStringField; 

Table4Institution5:  TStringField; 

Table40rder5:  TStringField; 

Table4FName6:  TStringField; 

Table4LName6:  TStringField; 

Table4Initial6:  TStringField; 

Table4Institution6:  TStringField; 

Table40rder6:  TStringField; 

Table3ANumber:  TIntegerField; 

Table3LName:  TStringField; 

Table3FName:  TStringField; 

Table3 Initial:  TStringField; 

Table3Honorific:  TStringField; 

Table3Institution:  TStringField; 

Table3Department:  TStringField; 

Table3Mailstop:  TStringField; 

Table3Address_Street:  TStringField; 

Table3Address_City:  TStnngField; 

Table3Address_State:  TStringField; 

Table3Address_Zip:  TStringField; 

Table3 Country:  TStringField; 

Table3Phone_LocalNumber:  TStringField; 

Table3Phone_FaxNumber:  TStringField; 

Table3Email:  TStringField; 

procedure  FormCreate( Sender:  TObject); 

procedure  CGIDB10nSendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
procedure  CGIDB20nSendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
procedure  CGBDB3SendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
procedure  CGIDB4SendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
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private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
function  MixCaseStr(S:  string):  string; 

implementation 

{$R  *.DFM} 

f *********** ****************************************** 

function  MixCaseStr(S:  string):  string; 

{  This  function  converts  a  string  to  Mixed  case. 

That  is  Capital  first  letter  and  the  rest  lower  case. } 

var 

i:  integer; 

begin 

if  (S[l]  >=  'a')  and  (S[l]  <=  V)  then 

Dec(S[l],32); 

for  i  :=  2  to  Length(S)  do 

if  (S[i]  >=  'A')  and  (S[i]  <=  T)  and  (S[i-l]o' ')  and  (S[i-l]o'-')  and  (S[i-l]o'c')  then 

Inc(S[i],  32); 

MixCaseStr  :=  S; 

end; 
!****************************************************> 


procedure  TForm  1  .FormCreate(Sender:  TObject); 
var 

ANumberlist:  Tstringlist;    {list  of  ANumber  retrieved  from  AUTHOR  Table  which  match 
query  name  request} 

i,  count:  integer;  {loop  variable} 

TempANumber:  string; 
temp:  string; 

dbANumber:  string; 
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countstr:  string; 
dPaperNumber:  string; 
dflag:  string; 
dtype:  string; 

dinvited:  string; 
daccepted:  string; 
dfhamein:  string; 
dlnamein:  string; 
dfhame:  string; 
dlname:  string; 
dSession:  string; 
dkeyword:  string; 

MySelector:  integer; 
ANumberint:  integer; 

TC:  TDataSet; 

begin 

with  CGIEnvDatal  do  begin 
{Standard  Header} 

webSiteINEFilename:=paramstr(  1 ); 

application.  onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{HTML  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEAD><BODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag-  getsmallfield  ('flag'); 

if  (dflag  =  T)  then  begin     {flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 
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{  Get  type  from  search  page } 

dtype:=  getsmallfield  ('type');  {  Flag  to  determine  type  of  search    } 

{Decide  what  action  is  required} 

if  dtype  =  'all1  then  MySelector  :=  1; 
if  dtype  =  'article'  then  MySelector  :=  2; 
if  dtype  =  'author'  then  MySelector  :=  3; 

case  MySelector  of 
1  :  begin  {ALL} 

with  Query  1  do  begin 

prepare;      {  Optimizes  query  } 

close; 

sql. clear; 

sql.add('Select  *  FROM  Submissi'); 

sql.add(  'Order  by  Title ' ); 

open; 

count:=  Recordcount; 

countstr:=  inttostr  (count); 

send('<Pxcenter>There  are '  +countstr+  '  records  in  the  Submission  Table  <P>'); 

CGIDB 1  .drawtable;    {display  all  titles} 

send  ('</center>'); 

end;  {  with  Query  1} 

end;     {if  all} 

2:  begin  {Article} 

dinvited:=  getsmallfield  ('invited'); 
daccepted:=  getsmallfield  ('accepted'); 
dsession:=  getsmallfield  ('session'); 
dkeyword:=  getsmallfield  ('keyword'); 

if  (dinvited  =  'Do  not  search  on  this  field')  and  (daccepted  =  'Do  not  search  on  this  field') 
and  (dsession  =  TDo  not  search  on  this  field')  and  (dkeyword  =  T)o  not  search  on  this 
field') 

then  begin 

{another  ALL  search} 

with  Query  1  do  begin 

prepare;      {  Optimizes  query  } 

close; 

sql.  clear; 
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sql.add('Select  *  FROM  Submissi'); 
sql.add( 'Order  by  Title*); 
open; 

count:=  Recordcount; 
countstr:=  inttostr  (count); 

send('<P><center>There  are  '  +countstr+  '  records  in  the  Submission  Table.<P>'); 
CGIDB 1  .drawtable;    {display  all  titles} 
send  ('</center>'); 
end;  {  with  Query  1} 
end  {if  nothing  selected} 

else  begin    {article} 

{Do  the  article  query  requested} 
{Find  the  Titles  that  match  the  request} 

with  Query2  do  begin 

close; 

sql.  clear; 

sql.add("Select*FROM  Submissi  WHERE '); 

{Invited} 

if  dinvited  =  'Yes'  then 
sql.add  ('Invited  =  "y"') 
else  ifdinvited  =  ,No'then 
sql.add  ('Invited  =  "n'"); 

if  (daccepted  o  *Do  not  search  on  this  field')and  (sql. count  =  2)  then 
sql.add  ('  and ');      {need  an  'and'  between  statements} 

{Accepted} 

if  daccepted  =  'Yes'  then 
sql.add  ('accepted  =  "y"') 
else  if  daccepted  =  "No'  then 
sql.add  ('accepted  =  "n"'); 

{Session} 

if  (dsession  o  T)o  not  search  on  this  field')  and  (sql. count  >=  2)  then 
sql.add  ('  and ');      {need  an  'and'  between  statements} 

if  (dsession  o  'Do  not  search  on  this  field')  then 
sql.add  ('Session  =  '"  +dsession+  ""); 

{Keyword} 

if  (dkeyword  o  T)o  not  search  on  this  field')  and  (sql. count  >=  2)  then 
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sql.add  ('  and ');       {need  an  'and'  between  statements} 

if  (dkeyword  o  'Do  not  search  on  this  field')  then 
sql.add  ('(Keywordl  =  '"  +dkeyword+  '"  or  Keyword2  =  '"  +dkeyword+  '"  or  Keyword3 
+dkeyword+ '")'); 


open; 

send  ('<center>'); 

if  recordcount  =  0  then  begin 

sendhdr('2',  'There  were  no  records  that  matched  your  query!'); 

send('You  may  <a  href="../cgi-win/ArtlEdit.exe">Do  another  Query</a>  of  the 
Database.'); 

send  ('</centerxp>'); 

end 

else  begin 

CGIDB2.drawTable; 

send  ('</centerxp>'); 

send('Here  are  the  Titles  that  match  your  request.  Click  on  the  Title  Name  for  the  record 
you  would  like '); 

send('to  view. <p>If  you  believe  the  record  you  are  looking  for  is  under  another  name,'); 

send('  you  may  <a  href="../cgi-win/ArtlEdit.exe">Do  another  Query</a>  of  the 
Database.'); 

end; 


end;  {query2} 
end;  {else} 
end;  {case  article} 

3:  begin    {author} 

{Get  Author  Name} 

dFNamein:=  getsmallfield  ('fname'); 
dfhame:=  MixCaseStr(dFNamein); 

dLNamein:=  getsmallfield  ('lname'); 
dlname:=  MixCaseStr(dLNamein); 

{Find  out  if  name  is  in  contact  authors.  Only  the  last  name  is  required, 
but  the  first  name  will  help  narrow  the  search. } 

if  (dlname  o  ")  then  begin 
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{Search  for  name  in  AUTHOR  Table} 

with  Query3  do  begin 
close; 
sql.  clear; 

{If  both  the  first  and  last  name  is  given,  search  for  match  on  both} 

if(dfhameo")then 
sql.add('Select  *  FROM  Author  WHERE  FName  =  "'  +dfname+  '"  and  LName  =  *" 
+dlname+ "") 

{Only  the  last  name  is  given,  so  search  only  on  it} 

else 
sql.add('Select  ANumber  FROM  Author  WHERE  LName  =  "'  +dlname+  ""); 

{execute  the  Query} 

open; 

{Display  results} 

send  ('<Pxcenter>'); 
If  Recordcount  >  0  then  begin 
CGIDB3.DrawTable; 

send('<P>If  the  Author  sought  was  not  the  Contact  Author  for  the  paper,  their  name  will 
not  appear'); 

send('  on  this  list.  To  continue  the  search,  click  on  the  "Not  a  Contact  Author"  button 
below.'); 

send('<PxFORM  ACTION="../cgi-win/ArtlAuth.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE="hidden"  Name="getauthor"  Value="NotContactAuthor">'); 

send(*<INPUT  TYPE="hidden"  Name="fname"  Value=m  +dfhame+  '">'); 

send('<INPUT  TYPE="hidden"  Name="lname"  Value='"  +dlname+  '">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="  Not  a  Contact  Author 
"></CENTERx/FORM>*); 

end 


else  begin  {The  name  is  not  a  ontact  Author  so  do  the  search  on  Other  Authers  only} 

with  Query4  do  begin 
close; 
sql.  clear; 
sql.add('Select*FROM  Submissi  WHERE '); 

{If  there  is  a  First  name  given,  then  search  for  first  and  last  name  match  in 
Other  Authors} 
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if  dfhame  o "  then 

sql.add  (*(LName2  =  '"  +dlname+  "'  and  FName2  ='"  +dfhame+  '")  or  (LName3  = 
in 

+dlname+  "*  and  FName3  ="'  +dfhame+  "')  or  (LName4  =  m+dlname+  '"  and 
FName4  =m 

+dmame+  m)  or  (LName5  =  "'  +dlname+  "'  and  FName5  =  '"  +dfhame+  »")  or 
(LName6  =  "'  +dlname+  '"  and  FName6  ="'  +dfhame+  ,")') 

{Otherwise,  search  only  for  last  name  match  in  Other  Authors} 

else  sql.add  ('(LName2  =  '"  +dlname+  '"  or  LName3  =  '"+dlname+  "'  or  LName4  = 

+dlname+  "*  or  LName5  =  "'  +dlname+  "'  or  LName6  =  "'+dlname+  m)*); 

open; 

If  Recordcount  >0  then  CGIDB4.DrawTable 
else  send(There  are  no  Authors  in  the  database  with  the  name  <B>'  +  dfname  +  "  + 
dlname  +  '</B>. '); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send(*<INPUT  TYPE="hiddenM  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Query  another 
Article,,x/CENTER></FORM>'); 
end;  {with  query4} 

end;     {if  recordcount  >  0} 

end;  {withQuery3} 

end     {If  dlname  o"  then} 

else  begin 

sendhdr('2',  'You  must  enter  a  last  name!'); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<DSfPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<P><CENTERxlNPUT  TYPE="submit"  Value="Query  another 
Article"x/CENTERx/FORM>*); 

end;  {If  dlname  o"  else} 

end;  {case  author} 
end; {case} 

{ HTML  Footer} 
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sendhr; 

send('<PxFORM  ACTION='\./cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send(*<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 

send('<P><CENTERxINPUT  TYPE="submit* '  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 
end  {flag  is  valid} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<Pxhr><PxIMG  SRC- '../prototype/asil2b0.gif "  align=left  alr="Asilomar  facility">'); 

send  (*Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

end;  {with  cgiEnvDatal  do} 

end;  {Procedure  TForml.FormCreate} 


procedure  TForml.CGIDB10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

begin 

s:=' <A  HREF=". ./cgi-win/ArtlView.exe?*+ 
currentrecord.fieldbyNameCPaperNumber^.AsString  +  '">' 

+  currentrecord.FieldbyNameCTitleO.AsString  +  '</A>'; 
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end;    {Procedure  TForml.CGIDBlOnSendingHotField} 

procedure  TForml.CGlDB20nSendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s:-<A  HREF=".. /cgi-win/Artl  View.  exe?'+ 
currentrecord.fieldbyNameCPaperNumber^.AsString  +  '">' 
+  currentrecord.FieldbyNameCTitle^.AsString  +  '</A>'; 

end;    {Procedure  TForml.CGIDB20nSendingHotField} 

procedure  TForml.CGIDB3SendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s:-<A  HREF="../cgi-win/ArtlAuth.exe?'+  currentrecord.fieldbyName('ANumber').AsString  + 

+  currentrecord.FieldbyName('ANumber').AsString  +  '</A>'; 

end;  {Procedure  TForml.CGIDB30nSendingHotFieId} 

procedure  TForml.CGE)B4SendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s:='<AHREF=".. /cgi-win/Artl  View.  exe?'+ 
currentrecord.fieldbyName('Paper_Number').AsString  +  '">' 
+  currentrecord.FieldbyName('Title').AsString  +  '</A>'; 

end;  {Procedure  TForml.CGIDB40nSendingHotField} 

end. 
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Article  by  Author:  A rtlAuth.exe 

unit  Artauth; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
CGIEnvDatal:  TCGIEnvData; 
CGBDB1:TCGIDB; 
DataSourcel:  TDataSource; 
Query  1:  TQuery; 
Tablel:TTable; 

Query  lPaperNumber:  TIntegerField; 
QuerylTitle:  TStringField; 
Query2:  TQuery; 
DataSource2:  TDataSource; 
Table3:  TTable; 
Table2:  TTable; 
DataSource3:  TDataSource; 
Query2Paper_Number:  TIntegerField; 
Query2Title:  TStringField; 
CGIDB2:  TCGEDB; 
Table  1  PaperNumber:  TIntegerField; 
Table  1  Title:  TStringField; 
Table  1  Invited:  TStringField; 
Table  1  Accepted:  TStringField; 
Table  1  ContactAuthorNumber:  TIntegerField; 
Table  1  Session:  TStringField; 
Table  1  OrderlnSession:  TStringField; 
Table  1  PresentationTime:  TStringField; 
Table  1  Keyword  1:  TStringField; 
Table  lKeyword2:  TStringField; 
Table  IKeyworcB:  TStringField; 
Table  1  Abstract:  TMemoField; 
Table  IContactOrder:  TStringField; 
Table  lFName2:  TStringField; 
Table  lLName2:  TStringField; 
Table  Hnitial2:  TStringField; 
Table  1  Institution2 :  TStringField; 
Table  1  Order2 :  TStringField; 
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Table  lFName3:  TStringField; 
Table  lLName3:  TStringField; 
Table  UnitiaB:  TStringField; 
Table  1  Institution3:  TStringField; 
Table  10rder3:  TStringField; 
Table  lFName4:  TStringField; 
Table  lLName4:  TStringField; 
Table  1  Initial4 :  TStringField; 
Table  1  Institution4 :  TStringField; 
Table  1  Order4 :  TStringField; 
Table lFName5:  TStringField; 
Table  lLName5:  TStringField; 
Table  llnitiab:  TStringField; 
Table  1  Institution5:  TStringField; 
Table  10rder5:  TStringField; 
Table  lFName6:  TStringField; 
Table  lLName6:  TStringField; 
Table  Hnitial6:  TStringField; 
Table  Hnstitution6:  TStringField; 
Table  10rder6:  TStringField; 
Table3Paper_Number:  TIntegerField; 
Table3Title:  TStringField; 
Table3Invited:  TStringField; 
Table3Accepted:  TStringField; 
Table3ContactAuthorNumber:  TIntegerField; 
Table3 Session:  TStringField; 
Table30rderInSession:  TStringField; 
Table3PresentationTime:  TStringField; 
Table3Keywordl:  TStringField; 
Table3Keyword2:  TStringField; 
Table3Keyword3:  TStringField; 
Table3 Abstract:  TMemoField; 
Table3ContactOrder:  TStringField; 
Table3FName2:  TStringField; 
Table3LName2:  TStringField; 
Table3Initial2:  TStringField; 
Table3Institution2:  TStringField; 
Table30rder2:  TStringField; 
Table3FName3:  TStringField; 
Table3LName3:  TStringField; 
Table3Initial3:  TStringField; 
Table3Institution3:  TStringField; 
Table30rder3:  TStringField; 
Table3FName4:  TStringField; 
Table3LName4:  TStringField; 
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Table3Initial4:  TStringField; 

Table3Institution4:  TStringField; 

Table30rder4:  TStringField; 

Table3FName5:  TStringField; 

Table3LName5:  TStringField; 

Table3Initial5:  TStringField; 

Table3 Institution5 :  TStringField; 

Table30rder5:  TStringField; 

Table3FName6:  TStringField; 

Table3LName6:  TStringField; 

Table3Initial6:  TStringField; 

Table3Institution6:  TStringField; 

Table30rder6:  TStringField; 

procedure  FormCreate(Sender:  TObject); 

procedure  CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

procedure  CGIDB2SendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 

procedure  CGEDB3SendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
dflag:  string;  {valid  program  call} 

dANumber,  dANumberstr:  string; 
dFName  :  string; 
dLName :  string; 

dGetAuthor:  string; 

dANumberint,  count  1,  count2:  integer; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 
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with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.  onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{HTML  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 
dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  1 ')  then  begin     {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2></center>'); 
sendhr: 


{Find  Author  name  to  use  in  search  for  article} 

{Get  fields  from  search  page. 

If  a  contact  author  was  not  found,  then  will  get  the  string  'NotContact Author'  and  will 
proceed  with  a  search  of  the  Other  Authors 

If  a  contact  author  was  found,  then  will  get  the  query  string  with  the  '  ANumber'. } 


try 
{  Get  the  FORM  information  } 

dGetAuthor—  getsmallfield  ('GetAuthor'); 
dfhame:=  getsmallfield  ('fhame'); 
dlname:=  getsmallfield  ('lname'); 
finally 
{Get  the  ANumber  string  from  the  address} 
dANumber  :=  CGIQueryStringA; 
end; 

if  dGetAuthor  o  cginotfound  then  begin 
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{There  was  NOT  a  Contact  Author  match} 
{     if  dGetAuthor  =  'NotContactAuthor'  then  begin  } 

(Find  the  Titles  that  match  the  name  in  Other  Authors  only} 

with  Query  1  do  begin 

{query  on  names  in  Other  Authors  only} 

close; 

sql.  clear; 

sql.add('Select*FROM  Submissi  WHERE '); 

{If  there  is  a  First  name  given,  then  search  for  first  and  last  name  match  in  Other 
Authors} 

ifdfhameo"then 
sql.add  ('(LName2  =  '"  +dlname+  '"  and  FName2  ='"  +dfname+  '*')  or  (LName3  =  '" 
+dlname+  '"  and  FName3  ='"  +dfhame+  '")  or  (LName4  =  *"+dlname+  "*  and  FName4 

+dfhame+  '")  or  (LName5  =  "'  +dlname+  '"  and  FName5  =  "'  +dfhame+  '")  or  (LName6 

__  »i 

+dlname+  "'  and  FName6  ='"  +dfhame+  '")') 

{Otherwise,  search  only  for  last  name  match  in  Other  Authors} 

else  sql.add  ('(LName2  =  "'  +dlname+  "'  or  LName3  =  '"+dlname+  '"  or  LName4  = 
'"+dlname+  '"  or  LName5  =  "' 

+dlname+  '"  or  LName6  =  '"+dlname+  *")*); 

{execute  the  query} 

open; 

{Display  the  results} 

if  recordcount  >  0  then  begin 

send('<center>'); 
CGIDBl.DrawTable; 

send('</center>'); 

send('<PxFORM  ACTION="../cgi-win/Artledit.exeM  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Search  for  another 
Article'^/CENTERx/FORM^); 

end 

else  begin  {No  Authors  found} 
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send(There  are  no  Articles  in  the  database  with  the  Author  <B>'  +  dfhame  +  "  + 
dlname  +  '</B>. '); 

send(*<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Query  another 
Article,,x/CENTERx/FORM>'); 
end;  {if} 
close; 
end;  {with  query  1} 

end  {ifdGetAuthor  =  'NotContactAuthor'  then} 

else  begin  {There  was  a  contact  author  match} 

{Find  the  Titles  that  match  the  name  in  Other  Authors  *and*  in 
ContactAuthorNumber} 

{Get  name  of  author} 

with  table2  do  begin 

open; 
first; 

while  fieldbynameCANumber^.asstring  o  dANumber  do 
next; 

dfhame:=  fieldbyname  ('FName').asstring; 

dlname:=  fieldbyname  CLName').asstring; 

close; 

end;  {with  tabl2} 

{Search  for  Titles  with  contactauthornumber} 

with  Query2  do  begin 

{execute  the  query} 

dANumberint:=  strtoint  (dANumber); 

Query2.ParamByName('ANumber').AsInteger  :=  dANumberint; 
open; 

count  1  :=  recordcount; 
{Display  the  results} 

if  recordcount  >  0  then  begin 

send('<Pxh4>The  Author '  +dfhame+  ' '  +dlname+  '  was  a  Contact  Author  for  these 
Articles.</h4>'); 


276 


send('<center>'); 
CGIDB2.DrawTable; 
send('</center>'); 
end; 

end;  {With  Query2} 

with  Query  1  do  begin 

{query  on  names  in  Other  Authors  only) 

close; 

sql.  clear; 

sql.add('Select*FROM  Submissi  WHERE '); 

sql.add  ('(LName2  =  *"  +dlname+  "*  and  FName2  ='"  +dfhame+  "')  or  (LName3  =  "* 
+dlname+  "'  and  FName3  ='"  +dfhame+  '")  or  (LName4  =  m+dlname+  "'  and  FName4 

+dfhame+  "')  or  (LName5  =  *"  +dlname+  '"  and  FName5  =  "'  +dfhame+  "*)  or  (LName6 

it 

+dlname+  '"  and  FName6  ="'  +dfhame+  '")'); 


{execute  the  query} 

open; 

count2:=  recordcount; 

{Display  the  results} 

if  recordcount  >  0  then  begin 

send('<Pxh4>The  Author '  +dfhame+  ' '  +dlname+  '  was  not  the  Contact  Author  for 
these  Articles  </h4>'); 

send('<center>'); 
CGIDBl.DrawTable; 
send('</center>'); 
end; 

end;  {with  Query  1} 

if  (count  1  =  0)  and  (count2  =  0)  then  begin 

send(There  are  no  Articles  in  the  database  with  the  Author  <B>'  +  dfname  +  "  + 
dlname  +  '</B> '); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name=MflagM  Value="l">'); 


277 


send('<PxCENTERxINPUT  TYPE="submit"  Value="Query  another 
Article"x/CENTERx/FORM>'); 
end;  {if} 

end;  {else} 

{ HTML  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send('<PxCENTERxINPUT  TYPE="  submit"  Value="Return  to  the  System  Admin  Options 
page"x/CENTER></FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 


end  {flag  is  set} 

else  begin     {Password  **incorrect**} 

send('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 


send('<P><hrxpxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

sendCReturn  to  the  <A  HREF="http://131. 120.20.70Andex.html">Asilomar'); 

send('Conference  On-line  Submission  Page</A>'); 

send('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {Password  **incorrect**} 


end;  {with  CGIEnvData} 
end;  {Tforml} 
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procedure  TForml.CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s:-<A  HREF- '.  ./cgi-win/Artl  View.  exe?"+ 
cuirentrecord.fieldbyName(PaperNumber').  AsString  +  '">' 
+  currentrecord.FieldbyNameCTitle^.AsString  +  '</A>'; 

end; 

procedure  TFoirol.CGIDB2SendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s:- <A  HREF- '.  ./cgi-win/Artl  View.  exe?'+ 
currentTecord.fieldbyNameCPaperNumber').  AsString  +  '">' 
+  currentrecord.FieldbyName('Title').  AsString  +  '</A>'; 

end; 

procedure  TForml.CGIDB3SendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s:-<AHREF="../cgi-win/ArtlView.exe?'+ 
currentrecord.fieldbyName(Paper_Number').  AsString  +  '">' 
+  currentrecord.FieldbyName('Title')AsString  +  '</A>'; 

end; 

end. 
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View  the  Article:  ArtlView.exe 

unit  Artview; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Tablel:TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

Table2:  TTable; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Keywords:  TTable; 

KeywordsNumber:  TIntegerField; 

KeywordsName:  TStringField; 

Query  1  Number:  TIntegerField; 

Query  1  Name:  TStringField; 

procedure  FormCreate( Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 


var 
Forml:  TForml: 


theabstract :  TStringList; 
i:  integer; 

dPaperNumber:  string; 
dbOption:  string; 

dbtitle:  string; 
dbinvited:  string; 
dbaccepted:  string; 
dbANumber:  string; 


280 


dbSession:  string; 
dbOrderlnSession, 
dbPresentationTime:  string; 

dbkeywordl:  string; 
dbkeyword2:  string; 
dbkeyword3:  string; 
dbabstract:  string; 
dbcontactOrder:  string; 

dbfname2:  string; 
dblname2:  string; 
dbinitial2:  string; 
dbinstitution2:  string; 
dborder2:  string; 

dbfhame3:  string; 
dblname3:  string; 
dbinitiaB:  string; 
dbinstitution3:  string; 
dborder3:  string; 

dbfhame4:  string; 
dblname4:  string; 
dbinitia!4:  string; 
dbinstitution4:  string; 
dborder4:  string; 

dbfhame5:  string; 
dblname5:  string; 
dbinitial5:  string; 
dbinstitution5:  string; 
dborder5:  string; 

dbfhame6:  string; 
dblname6:  string; 
dbinitial6:  string; 
dbinstitution6:  string; 
dborder6:  string; 

dbFName  :  string; 
dbLName  :  string; 
dbHonorific  :  string; 

implementation 
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($R  *.DFM} 

procedure  TFonnl.FormCreate(Sender:  TObject); 
begin 

with  CGEEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{ Get  the  Paper  Number  Selected} 

dPaper_Number:=  CGIQueryStringA; 

{  Get  the  Paper  Record  from  the  SUBMISSION  Table  } 

with  Table  1  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('PaperJSTiunber').  asstring  o  dPaperNumber  do 
next; 

{ Retrieve  record } 

dbtitle:=  fieldByName  ('title').asstring; 
dbinvited:=  fieldByName  ('invited').asstring; 
dbaccepted:=  fieldByName  ('accepted'). asstring; 
dbANumber:=  fieldByName  ('ContactAuthorNumber'). asstring; 
dbSession:=  fieldByName  ('Session').asstring; 
dbOrderInSession:=  fieldByName  ('OrderlnSession').  asstring; 
dbPresentationTime:=  fieldByName  (PresentationTime').asstring; 


dbkeywordl 
dbkeyword2 
dbkeyword3 


=  fieldByName  Ckeywordr).asstring; 
=  fieldByName  ('keyword2'). asstring; 
=  fieldByName  ('keyworcB').  asstring; 


CGIDBl.memoToStringList  (fieldbyname  ('Abstract'),  theabstract); 
dbcontactOrder:=  fieldByName  ('contactOrder'). asstring; 
dborder2:=  fieldByName  ('order2'). asstring; 
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dbfhame2:=  fieldByName  ('fhan^'Xasstring; 
dbinitial2:=  fieldByName  ('initial2').asstring; 
dblname2:=  fieldByName  ('lname2').asstring; 
dbinstitution2:=  fieldByName  ('institution2').asstring; 

dborder3:=  fieldByName  ('order3').asstring; 
dbfiiame3:=  fieldByName  ('fiiame3').asstring; 
dbinitial3:=  fieldByName  ('initial3').asstring; 
dblname3:=  fieldByName  ('lname3').asstring; 
dbinstitution3:=  fieldByName  ('institution3').asstring; 

dborder4:=  fieldByName  ('order4,).asstring; 
dbfhame4:=  fieldByName  ('fiiame4').asstring; 
dbinitial4:=  fieldByName  ('initial4').asstring; 
dblname4:=  fieldByName  (,lname4').asstring; 
dbinstitution4:=  fieldByName  ('institution4').asstring; 

dborder5:=  fieldByName  ('order5').asstring; 
dbfhame5:=  fieldByName  ('fhame5').asstring; 
dbinitial5:=  fieldByName  ('initial5').asstring; 
dblname5:=  fieldByName  (lname5').asstring; 
dbinstitution5:=  fieldByName  ('institution5').asstring; 

dborder6:=  fieldByName  ('order6').asstring; 
dbfname6:=  fieldByName  ('fhame6').asstring; 
dbinitial6:=  fieldByName  ('initial6').asstring; 
dblname6:=  fieldByName  ('lname6').asstring; 
dbinstitution6:=  fieldByName  ('institution6').asstring; 
end; 

{  Get  Author  Name  information  from  the  AUTHOR  Table  } 

with  Table2  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('ANumber').asstring  o  dbANumber  do 
next; 

{  Retrieve  Author  Name  information  } 

dbFName  :=  fieldByName('FName').AsString; 
dbLName  :=  fieldByNameCLName').AsString; 
dbHonorific  :=  fieldByName('Honorific').AsString; 
close; 


283 


end: 


{  Send  the  html  page    } 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  (*</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2x/centerxHR>,); 

send  ('<P>Here  is  the  paper  submitted  by '  +  dbHonorific  +  ' '+  dbFName  +' '+  dbLName  +'. '); 

send('<PxFORM  METHOD="POST"  ACTION="../cgi-win/ArtlPost.exe  ">'); 

send  ('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 

send  (*<INPUT  TYPE="hidden"  Name="Paper_Number"  Value="*+  dPaper_Number  +'">'); 

send  (*<B>Title:  </BxINPUT  NAME="title"  Size="80"  TYPE="text"  Value="'+  dbtitle 

send  ('<PxB>Invited:  </BxINPUT  NAME="Invited"  Size="2"  TYPE="text"  Value="'+ 
dbinvited +'">'); 

send  ('<B>Accepted:  </BxINPUT  NAME="Accepted"  Size="2"  TYPE="text"  Value='"+ 
dbaccepted  +'">'); 

send(*<B>Session:  </BxINPUT  NAME=" Session"  Size="5"  TYPE^'text"  Value=m+ 
dbSession  +  ,">,); 

send  ('<B>Order  in  Session:  </BxINPUT  NAME="OrderInSession"  Size="3"  TYPE="text" 
Value="'+  dbOrderlnSession  +  '">•); 

send  ('<B>Presentation  Time:  </BxINPUT  NAME="PresentationTime"  Size="8" 
TYPE="text"  Value='"+  dbPresentationTime  +'">*); 

{Pull  Keywords  from  KEYWORD  Table  } 
with  Query  1  do  begin 

close; 

sql.clear; 

sql.add('Select  *  FROM  Keyword '); 

open; 

{Move  records  from  query  result  to  Keyword  #1  Pull-down  menu} 

Keywords.open; 

Keywords,  first; 

send('<PxB>Keyword  #1:  </B><SELECT  NAME="Keywordl">'); 
send('<OPTION  SELECTED> '  +dbkeywordl+  "); 

while  not  Keywords.EOF  do  begin 
dbOption:=Keywords.fieldByName('Name').Asstring; 
send(*<OPTION> '  +dbOption+ "); 
Keywords,  next; 
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end;  {for  all  records  in  the  query  result} 
send('</SELECT>*); 

{Move  records  from  query  result  to  Keyword  #2  Pull-down  menu} 

Keywords,  first; 

send('<PxB>Keyword  #2:  </B><SELECT  NAME="Keyword2">*); 
if  dbkeyword2  =  TSfone'  then  send('<OPTION>  None') 
else  send(*<OPTION  SELECTED> '  +dbkeyword2+  "); 

while  not  Keywords.EOF  do  begin 
dbOption:=Keywords.fielcByName('Name').Asstring; 
send('<OPTION>  *  +dbOption+ "); 
Keywords,  next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECT>'); 


{Move  records  from  query  result  to  Keyword  #3  Pull-down  menu} 

Keywords.first; 

send('<PxB>Keyword  #3:  </BxSELECT  NAME="Keyword3">'); 
if  dbkeyword3  =  'None'  then  send('<OPTION>  None') 
else  send('<OPTION  SELECTED> '  +dbkeyword3+  "); 

while  not  Keywords.EOF  do  begin 
dbOption:=Keywords.fieldByName('Name').Asstring; 
send(*<OPTION> '  +dbOption+ "); 
Keywords,  next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECT>'); 


Keywords.close; 
end;  { query  1} 

send  ('<PxB>Abstract:     </BxpxTEXTAREA  NAME="abstract"  COLS=70  Rows=  1 0>'); 
for  i  :=  0  to  theabstract. count  -  1  do 

send(  theabstract. strings[i] ); 
send  ('</TEXTAREA>'); 

theabstract. free;  {release  the  memory  held  by  'theabstract'} 

sendhdr  (T,  'Other  Author  Information'); 

send  ('<B>Name  Position  of  the  contact  author:'); 
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send  ('<INPUT  NAME="contactOrder"  Size=M2"  TYPE="text"  Value="*+  dbcontactOrder 

sendhr; 

send  C<B>Name  Position:  </BxINPUT  NAME="order2"  Size="2"  TYPE="text"  Value="'+ 
dborder2  +'">'); 

send  ('<B>First  Name:  </BxINPUT  NAME="fhame2"  Size="25"  TYPE="text"  Value='"+ 
dbfname2  +'">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial2"  Size="l"  TYPE="text"  Value=m+ 
dbinitial2  +'">'); 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname2"  Size="25"  TYPE="text" 
Value="'+  dblname2  +*">'); 

send  ('<BRxB>Institution:</BxINPUT  NAME="institution2"  Size="60"  TYPE="text" 
Value="*+  dbinstitution2  +*">'); 

sendhr; 

send  (*<B>Name  Position:  </BxINPUT  NAME="order3"  Size="2"  TYPE="textM  Value="'+ 
dborder3  +'">'); 

send  ('<B>First  Name:  </BxINPUT  NAME="fhame3"  Size="25"  TYPE="text"  Value=*"+ 
dbfname3  +"*>'); 

send  (*<B>Middle  Initial:  </BxINPUT  NAME="initial3"  Size="lM  TYPE="text"  Value='"+ 
dbinitial3  +'">'); 

send  ('<BR><B>Last  Name:  </BxINPUT  NAME="lname3"  Size="25"  TYPE="text" 
Value='"+  dblname3  +•">*); 

send  ('<brxB>Institution:</BxlNPUT  NAME="institution3"  Size- '60"  TYPE- "text" 
Value='"+  dbinstitution3  +'">'); 

sendhr; 

send  (*<B>Name  Position:  </BxINPUT  NAME="order4"  Size="2"  TYPE="text"  Value='"+ 
dborder4  +*">'); 

send  ('<B>First  Name:  </BxINPUT  NAME="mame4"  Size="25"  TYPE="text"  Value='"+ 
dbfname4  +'">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME=,,initial4"  Size="l"  TYPE="text"  Value='"+ 
dbinitiaW  +'">'); 

send  (*<BRxB>Last  Name:  </BxINPUT  NAME="lname4"  Size="25"  TYPE="text" 
Value='"+  dblname4  +'">'); 

send  (*<BR><B>Institution:</BxINPUT  NAME="institution4"  Size="60"  TYPE="text" 
Value- "+  dbinstitution4  +'">'); 

sendhr; 

send  (*<B>Name  Position:  </BxINPUT  NAME="order5"  Size="2"  TYPE="text"  Value="*+ 
dborder5  +*">'); 

send  ('<B>First  Name:  </BxINPUT  NAME="fhame5"  Size="25"  TYPE="text"  Value="*+ 
dbfname5  +'">'); 

send  ('<B>Middle  Initial:  </BxINPUT  NAME="initial5"  Size='T'  TYPE="text"  Value='"+ 
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dbinitial5  +,">'); 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname5"  Size="25"  TYPE="text" 
Value="'+  dblname5  +'">'); 

send  ("<BRxB>Institution:</BxINPUT  NAME="institution5"  Size="60"  TYPE="text" 
Value=*"+  dbinstitution5  +"'>'); 

sendhr; 

send  ('<B>Name  Position:  </BxINPUT  NAME="order6"  Size="2"  TYPE="text"  Value="*+ 
dborder6  +'">'); 

send  ('<B>First  Name:      </BxlNPUT  NAME="fhame6"  Size="25"  TYPE="text"  Value="'+ 
dbfname6  +"•>'); 

send  ('<B>Middle  Initial:  </BxlNPUT  NAME="initial6"  Size='T'  TYPE="text"  Value='"+ 
dbinitial6  +'">'); 

send  ('<BRxB>Last  Name:  </BxINPUT  NAME="lname6"  Size="25"  TYPE="text" 
Value="*+  dblname6  +"•>'); 

send  ('<BRxB>Institution:</BxlNPUT  NAME="institution6"  Size="60"  TYPE="text" 
Value='"+  dbinstitution6  +"">'); 

send  ('<PxCENTERxINPUT  TYPE=" submit"  Value="Record  these  changes  to  Article 
Information'^    <INPUT  TYPE="reset'"); 

send  ('  VALUE="Reset  to  Original  Values'^/CENTERx/FORM^); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application  );  {  don't  leave  form  around  } 

end;     {with  CGIEnvDatal} 

end;    {with  FormCreate} 

end. 
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Post  the  Article:  ArtlPostexe 

unit  Art_post; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
Tablel:  TTable; 
CGIEnvDatal:  TCGEEnvData; 
CGIDB  l.TCGIDB; 
Table  lPaperNumber:  TIntegerField; 
Tablel  Title:  TStringField; 
Tablel  Invited:  TStringField; 
Tablel  Accepted:  TStringField; 
Table  1  ContactAuthorNumber:  TIntegerField; 
Tablel  Session:  TStringField; 
Table  1  OrderlnSession:  TStringField; 
Table  lPresentationTime:  TStringField; 
Table  1  Keyword  1:  TStringField; 
Table  lKeyword2:  TStringField; 
Table  IKeyworcB:  TStringField; 
Table  IContactOrder:  TStringField; 
Table  lFName2:  TStringField; 
Table  1  LName2 :  TStringField; 
Table  Hnitial2:  TStringField; 
Table  Hnstitution2:  TStringField; 
Table  10rder2:  TStringField; 
Table  lFName3:  TStringField; 
Table  lLName3:  TStringField; 
Table  UnitiaB:  TStringField; 
Tablel Institution3 :  TStringField; 
Table  10rder3:  TStringField; 
Table  lFName4:  TStringField; 
Table  lLName4:  TStringField; 
Table  UnitiaW:  TStringField; 
Table  Hnstitution4:  TStringField; 
Table  10rder4:  TStringField; 
Table  lFName5:  TStringField; 
Table  !LName5:  TStringField; 
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Table  llnitiab:  TStringField; 

Table  1  Institution5:  TStringField; 

Table  10rder5:  TStringField; 

Table lFName6:  TStringField; 

Table  lLName6:  TStringField; 

Table Hnitial6:  TStringField; 

Table  Hnstitution6:  TStringField; 

Table  1  Order6 :  TStringField; 

Table  1  Abstract:  TMemoField; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
theabstract :  TStringList; 
dANumber:  string; 
dANumberint:  integer; 
dPaper_Number:  string; 
dtitle:  string; 
dinvited:  string; 
daccepted:  string; 
dsession:  string; 
dOrderlnSession,  dPresentationTime:  string; 

dkeywordl:  string; 
dkeyword2:  string; 
dkeyword3:  string; 
dabstract:  string; 
dcontactOrder:  string; 

dfhame2:  string; 
dlname2:  string; 
dinitial2:  string; 
dinstitution2:  string; 
dorder2:  string; 

dfiiame3:  string; 
dlname3:  string; 
dinitiaB:  string; 
dinstitution3:  string; 
dorder3:  string; 
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dfhame4:  string; 
dlname4:  string; 
dinitial4:  string; 
dinstitution4:  string; 
dorder4:  string; 

dfhame5:  string; 
dlname5:  string; 
dinitiab:  string; 
dinstitution5:  string; 
dorder5:  string; 

dfhame6:  string; 
dlname6:  string; 
dinitial6:  string; 
dinstitution6:  string; 
dorder6:  string; 

dbFName  :  string; 
dbLName  :  string; 
dbHonorific  :  string; 
dbEmail :  string; 

addinfo:  string; 

dflag:  string;  {valid  program  call} 

implementation 
($R  *.DFM} 


procedure  TForml.FormCreate(  Sender:  TObject); 
begin 

with  CGEEnvDatal  do  begin 

{Initialize  HTML  page } 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 
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send  (*<HTMLxHEAD>*); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  T)  then  begin     {flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{ Get  data } 

dPaper_Number:=  getsmallfield  ('PaperNumber'); 

dtitle:=  getsmallfield  ('title'); 
dinvited:=  getsmallfield  ('invited'); 
daccepted:=  getsmallfield  ('accepted'); 
dsession:=  getsmallfield  ('session'); 
dOrderlnSession™  getsmallfield  ('OrderlnSession'); 
dPresentationTime:=  getsmallfield  ('PresentationTime'); 


dkeywordl 
dkeyword2 
dkeyword3 


=  getsmallfield  Ckeywordl'); 
=  getsmallfield  ('keyword2'); 
=  getsmallfield  ('keyword3'); 


theabstract  :=  TStringList.create; 
theabstract.  clear; 

CGIEnvDatal.getTextArea(  'abstract',  theabstract); 

dcontactOrder:=  getsmallfield  ('contactOrder'); 

dorder2:=  getsmallfield  ('order2'); 
dfname2:=  getsmallfield  ('fname2'); 
dlname2:=  getsmallfield  ('lname2'); 
dinitial2:=  getsmallfield  ('initial2'); 
dinstitution2:=  getsmallfield  ('institution2'); 

dorder3~  getsmallfield  ('order3'); 
dfhame3:=  getsmallfield  ('fhame3'); 
dlname3:=  getsmallfield  ('lname3'); 
dinitial3:=  getsmallfield  ('initiaB'); 
dinstitution3:=  getsmallfield  ('institution3'); 
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dorder4:=  getsmallfield  ('order4'); 
dfhame4:=  getsmallfield  ('fhame4'); 
dlname4:=  getsmallfield  ('lname4'); 
dinitial4:=  getsmallfield  ('initiaW); 
dinstitution4:=  getsmallfield  ('institution4'); 

dorder5:=  getsmallfield  ('order5'); 


dfhame5 
dlname5 
dinitia!5 


=  getsmallfield  ('fhame5'); 
=  getsmallfield  ('lname5'); 
=  getsmallfield  ('initial5'); 


dinstitution5:=  getsmallfield  ('institutions'); 


dorder6:=  getsmallfield  ('order6'); 

dfname6 

dlname6 

dinitial6 


=  getsmallfield  ('fname6'); 
=  getsmallfield  ('lname6'); 
=  getsmallfield  ('initial6'); 


dinstitution6:=  getsmallfield  ('institution6'); 

{  Place  Data  into  SUBMISSION  Table} 

with  Table  1  do  begin 

{  Move  to  proper  record} 

open; 

first; 

if  fieldbyName('Paper_Number').asstring  o  dPaperNumber  then 

repeat 

next; 

until  fieldbyName(Paper_Number').asstring  =  dPaperNumber; 


{Place  edited  submission  data  to  SUBMISSION  Table} 

edit; 

SetFields([nil,  dtitle,  dinvited,  daccepted,  nil,  dsession,  dOrderlnSession, 
dPresentationTime,  dkeywordl,  dkeyword2, 

dkeyword3,  nil,  dcontactOrder,  dFName2,  dLName2,  dlnitial2,  dInstitution2,  dOrder2, 
dFName3,  dLName3, 

dlnitiaB,  dInstitution3,  dOrder3,  dFName4,  dLName4,  dlnitial4,  dJnstitution4,  dOrder4, 
dFName5,  dLName5,  dlnitial5,  dInstitution5,  dOrder5,  dFName6,  dLName6,  dlnitial6, 
dInstitution6, 

dOrder6]); 

edit; 

CGIDB1  .StringlistToMemo(theabstract,  fieldbyname('Abstract')); 

theabstract.free; 
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post; 

close; 

end;  (with  Table  1} 


{  Send  the  Final  page    } 

sendhdr  ('2',  'Article  Successfully  Edited'); 

send  ('<P>The  article  titled  <B>'"  +dtitle+  *"</B>  has  been  updated  in  the  Database. <P>'); 

send('<PxFORM  ACTION="../cgi-win/ArtlEdit.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Edit  another 
Article"x/CENTERx/FORMxP>'); 

sendhr; 

send('<PxFORM  ACTION=**../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

sendC<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 

CGIEnvData  1 .  closeStdout; 
closeApp(  application ); 

end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 


send  ('<P><hrxp><IMG  SRO"../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  OReturn  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 
send  ('</BODYx/HTML>'); 
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closeStdout; 
closeApp(  application ); 

end;  {flag  **incorrect**} 

end;     {with  CGIEnvDatal} 

end;    {FormCreate} 

end    {Application} 
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Choose  Session:  Session.exe 

unit  Session; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Sessions:  TTable; 

CGEEnvDatal:  TCGIEnvData; 

CGEDB1:TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

Query  1  Number:  TIntegerField; 

Query  INeumonic:  TStringField; 

procedure  FormCreate( Sender:  TObject); 

procedure  CGIDB  lSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 
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application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 

send  e<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  1')  then  begin     { flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{send  instruction;} 

send('<center>These  are  the  current  Session  Neumonics.<br>'); 

send(To  edit  a  single  Session  Neumonic,  simply  click  on  the  Neumonic  that  you  would  like 
to  change  <BR>'); 

send('  Other  options  are  available  at  the  bottom  of  the  page.<BR>'); 


{Retrieve  current  Session  Information} 

with  Query  1  do  begin 

close; 
sql.  clear; 

sql.add(*Select*FROM  Session '); 
open; 

if  recordcount  >  0  then  begin 
CGIDBl.DrawTable; 
send('</center>'); 
end  {if  recordcount  >  0} 

else 

sendhdr  ('2VThere  are  no  Sessions  in  the  Database!1); 

end;  {with  Query  1} 
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{Button  to  Add  keywords} 

send('<PxFORM  ACTION="../cgi-win/SessAdd.exe"  METHOD="POST">'); 
send(*<INPUT  TYPE="hidden"  Name="flag"  Value="i">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Add  a  New 
Session"x/CENTERx/FORM>'); 

{Button  to  Delete  keywords} 

send('<PxFORM  ACTION="../cgi-win/SessDel.exe"  METHOD="POST">*); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Delete 
Session(s)"x/CENTERx/FORM>'); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE=,,hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxpxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'V); 

send  (Heturn  to  the  <A  HREF="http://13 1. 120.20.70/lndex.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
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closeApp(  application ); 
end;     { with  CGEEnvData  1 } 


end;     {FormCreate} 

procedure  TForml.CGIDBlSendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

{Hotlink  for  single  session  edit} 

s:-<A  HREF="../cgi-win/SessEdit.exe?'+  currentrecord.fieldbyNameCNumber^.AsString  + 

+  currentrecord.FieldbyNameCNeumonicO.AsString  +  '</A>'; 
end; 
end. 
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Edit  a  Session:  SessEdit.exe 

unit  Sesedit; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGEEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

procedure  FormCreate( Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForm  1  .FormCreate( Sender:  TObject); 

var 
SessionNumber,  Session:  string; 


begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 
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createStdout; 
sendPrologue; 

{Find  Session  to  edit} 

{  Get  field  from  search  page  } 

SessionNumber:=  cgiQueryStringA; 

with  Sessions  do  begin 

{Prepare  the  table} 

open; 
first; 

{find  the  correct  Session} 

while  SessionNumber  o  fieldbyname('Number').asstring  do 
next; 

Session—  fieldbyname('Neumonic').asstring; 

end;    {with  Sessions} 

{Send  Session  edit  FORM  to  HTML  page} 

{Standard  Header} 

send  ('<HTMLxHEAD>"); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEAD><BODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

send('Here  is  the  Session  you  wanted  to  edit.  Make  changes  and  "Submit"  them.<BR>'); 

send('<PxFORM  ACTION="../cgi-win/Sessedt2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 

send('<INPUT  TYPE="text"  NAME=" Session"  SIZE="50"  VALUE="'  +Session+  '">•); 
send('<INPUT  TYPE="hidden"  NAME="Sessionnumber"  VALUE="'  +SessionNumber+  '">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Submit  Change  to  Session">'); 
send('<INPUT  TYPE="reset"  VALUE="Reset  to  Original  Session"x/CENTERx/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD="POST">'); 
send(,<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
change"x/CENTER></FORM>'); 
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(Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST>'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send('<P><CENTERxINPUT  TYPE="submif '  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>*); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 
end. 


301 


Edit  Confirmation:  SesEdit2.exe 

unit  Ses_edt2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

DataSource  1 :  TDataSource; 

Sessions:  TTable; 

CGEnvDatal:  TCGIEnvData; 

CGEDB1:TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
dsession:  string; 
dsessionnumber:  string; 

dflag:  string;  {valid  program  call} 

begin 
with  CGEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
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application.processMessages; 

createStdout; 
sendPrologue; 

{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag"  getsmallfield  ('flag1); 

if  (dflag  =  1 ')  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{ Get  field  from  search  page } 

dsession:=  getsmallfield  ('session'); 
dsessionnumber:=  getsmallfield  ('sessionnumber1); 


{Put  changed  session  into  SESSION  Table} 

with  Sessions  do  begin 

{ Move  to  proper  record} 

open; 
first; 

while  fieldbyName(,Number,).asstring  o  dsessionnumber  do 
next; 

{Update  record  } 

edit; 

SetFields([nil,  dsession]); 

post; 

close; 

end;      {with  Sessions} 


{Send  the  Confirmation  page  } 

send  ('<P>The  Session  has  been  changed  to  <B> '  +  dsession  +  '</B>. '); 
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send  C</CENTERxBR>'); 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD="POST">*); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value='T'>'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Edit  more 
Sessions"x/CENTERx/FORM>'); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION=,,../cgi-win/Adminpwd.exe,,  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  ('<center><H2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  .^/strongx/Hlx/cente^'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  (*<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  (*<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxlMG  SRC="../prototype/asil2b0.gif  "  align=left  alt="Asilomar  facility">'); 
send  (Tleturn  to  the  <A  HREF="http://13 1 .  120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYxyHTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 
end;     {FormCreate} 

end. 
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Add  a  Session:  SessAdd.exe 

unit  Sessadd; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGEEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{Send  Keyword  ADD  Form  to  HTML  page} 

{Standard  Header} 

send  (^HTMIxHEAD^); 
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SendTitlefAsilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

send(*Fill  in  the  Session  Neumonics  you  would  like  to  add.<BR>'); 
send('You  may  fill  in  all  or  none  of  these  fields.<BR>'); 

send('<PxFORM  ACTION="../cgi-win/SessAdd2.exe,,  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxB>New  Session:  </BxINPUT  TYPE="text"  NAME="Sessionl"  >'); 
send('<PxB>New  Session:  </BxINPUT  TYPE="text"  NAME="Session2"  >'); 
send('<PxB>New  Session:  </BxlNPUT  TYPE="text"  NAME="Session3"  >'); 
send('<PxB>New  Session:  </BxINPUT  TYPE="text"  NAME="Session4"  >'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="ADD  these 
Sessions"x/CENTERx/FORM>*); 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="  submit"  Value="CANCEL  -  Do  NOT  Add  any 
Sessions"x/CENTERx/FORM>'); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION=,,../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">,); 

send('<PxCENTERxINPUT  TYPE="submit"  Vaiue="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>*); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

end. 
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Addition  Confirmation:  SessAdd2.exe 

unit  Ses_add2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGEnvData; 

CGTDB1:TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
dsessionl:  string; 
dsession2:  string; 
dsession3:  string; 
dsession4:  string; 

dbsession:  string; 

dflag:  string;  {valid  program  call} 
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sessionPos:  integer; 

begin 
with  CGIEnvDatal  do  begin 

webSitelNIFilename  :=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{Standard  Header) 

send  ('<HTMLxHEAD>'); 

SendTitle('Asitomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  1  *)  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{ Get  field  from  search  page } 

dsessionl:=  getsmallfield  ('sessionl'); 
dsession2:=  getsmallfield  ('session2'); 
dsession3:=  getsmallfield  ('session^); 
dsession4:=  getsmallfield  ('session4'); 


{ADD  Sessions  into  Sessions  Table} 

with  Sessions  do  begin 

{Update  record  } 

open; 

if  dsessionl  o "  then  begin 

first; 

sessionPos  :=  CompareStr(dsessionl,  Fieldbyname  ('neumonic').asstring); 
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while  (not  EOF)  and  (sessionPos  <  0)  do  begin 

sessionPos  ~  CompareStr(dsessionl,  Fieldbyname  ('neumonic').asstring); 
end; 

if  sessionPos  >  0  then  begin 

insert; 

InsertRecord([nil,  dsessionl]); 

end 

else  send  ('The  session  neumonic '  +  dsessionl  +  '  already  exists'); 

end;  {if  session  o  "} 

if  dsession2  o "  then  begin 

first; 

sessionPos  :=  CompareStr(dsession2,  Fieldbyname  ('neumonic').asstring); 

while  (not  EOF)  and  (sessionPos  <  0)  do  begin 

sessionPos  :=  CompareStr(dsession2,  Fieldbyname  ('neumonic').asstring); 
end; 

if  sessionPos  >  0  then  begin 

insert; 

InsertRecord([nil,  dsession2]); 

end 

else  send  ('The  session  neumonic '  +  dsession2  + '  already  exists'); 

end;  {if  session  o  "} 

close; 

end;      {with  Sessions} 


{Send  the  Thankyou  page  } 

sendhdr  ('3',  'The  following  Sessions  have  been  ADDED .<BR>0; 
send  ('<PxB>'  +dsessionl+  '<BR>'); 
send  ("  +dsession2+  '<BR>'); 
send  ("  +dsession3+  '<BR>'); 
send  ("  +dsession4+  '</B>'); 
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send  ('</CENTER>'); 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD^'POST'V); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE=*"submit"  Value="Edit  more 
Sessions"x/CENTERx/FORM>'); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l,,>'); 

send('<P><CENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.htmr'>Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;     {with  CGIEnvDatal} 
end;     {FormCreate} 
end. 
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Delete  Session(s):  SessDel.exe 

unit  Sessdel; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

Query  1:  TQuery; 

CGIEnvDatal:  TCGBEnvData; 

CGEDB1:TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

Query  1  Number:  TIntegerField; 

QuerylNeumonic:  TStringField; 

procedure  FormCreate(Sender:  TObject); 

procedure  CGIDB  lSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
dflag:  string; 

begin 

with  CGIEnvDatal  do  begin 
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{Standard  Header} 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{  Get  fields  from  search  page } 

dflag:=  getsmallfield  ('flag'); 

if  dflag  =  T  then  begin 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('<center>These  are  the  current  Sessions.  <br>'); 

send('To  DELETE  a  Session,  simply  select  the  Number  next  to  the  Session  that  you  would 
liketoDELETE.<BR>'); 

{Retrieve  current  Keywords} 

with  Query  1  do  begin 

close; 
sql.clear; 

sql.add('Select*FROM  Session '); 
sql.add('Order  By  Number'); 
open; 

{Check  if  any  records  were  returned} 

if  recordcount  >  0  then  begin 

{There  are  records  returned} 

Sessions.  Open; 

CGIDBl.DrawTable; 

send('</center>'); 

Sessions.  Close; 

end  (if  recordcount  >  0} 

else 

{No  records  returned} 

sendhdr  ('2','There  are  no  Sessions  in  the  Database  to  Delete!'); 

end;  {with  Query  1} 
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{Delete  all  fields  option} 

send('<PxFORM  ACTION^*.. /cgi-win/SessDel2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<INPUT  TYPE="hidden"  Name="DeleteAll"  Value^'Tes'V); 
send('<PxCENTERxINPUT  TYPE^'submit"  Value="****  Delete  ALL  the  Sessions 
*****'x/CENTERx/FORM>'); 

{HTML  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">,); 

send(*<PxCENTERxINPUT  TYPE="  submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  C<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  mis  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 

send  ('<Pxhr><PxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  ('Return  to  the  <A  HREF="http://131. 120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     (with  CGIEnvDatal } 


end;     {FormCreate} 
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procedure  TForml.CGE)BlSendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

!  Hot  link  for  single  keyword  edit} 

s:-<A  HREF="../cgi-win/SessDel2.exe?'+  currentrecord.fieldbyName(Number').AsString  + 

+  currentrecord.FieldbyName(lNumber').AsString  +  '</A>'; 

end; 

end. 
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Verification  of  Delete:  SessDel2.exe 

unit  Ses_del2; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB1:TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
SessionNumber,  SessionName,  dDeleteAH:  string; 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{Standard  Header} 

send  (*<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 


{Find  Session  to  Delete} 

{ Get  field  from  search  page } 

try 

dDeleteAll:=  getsmallfield  (DeleteAll1); 
finally 

{Check  to  see  if  'Delete  all  fields'  is  true} 

SessionNumber:=  cgiQueryStringA; 
end; 

if  getsmallfield  (DeleteAU')  o  cginotfound  then  begin 

{Check  to  see  if  'Delete  all  fields'  is  true} 

dDeleteAll:=  getsmallfield  (T>eleteAH'); 

if  dDeleteAll  =  'Yes'  then  begin 

with  Sessions  do  begin 

sendhdr  ('2',  'Are  you  sure  you  want  to  Delete  ALL  of  the  Sessions  in  the  Database!'); 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe,,  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
Delete"x/CENTERx/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/SessDel3.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value=,,l">'); 
send(*<INPUT  TYPE="hidden"  NAME="sessionnumber"  VALUE="deIete">'); 
send('<INPUT  TYPE="hidden"  NAME="session"  VALUE="delete">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="***  YES  -  DELETE  ALL 
Sessions  in  the  Database!  ***"x/CENTERx/FORM>'); 
end;  {with  Sessions} 
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end;  {if  dDeleteAH} 
end  {if  cginotfound} 
else  begin  {Delete  one  record} 
with  Sessions  do  begin 

(Prepare  the  table} 

open; 
first; 

{find  the  correct  keyword} 

while  SessionNumber  o  fieldbyname(rNumber').asstring  do 
next; 

{Get  the  Session  Name} 

SessionName:=  fieldbyname('Neumonic,).asstring; 
end;    {with  Sessions} 

{Send  Session  edit  FORM  to  HTML  page} 

send('Are  you  sure  you  want  to  DELETE  the  Session  <B>'  +SessionName+  \</BxBR>'); 

send('<PxFORM  ACTION=^/cgi-win/SessDel3.exe,,  METHOD^POST'V); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE="hidden"  NAME="sessionnumber"  VALUE=m  +SessionNumber+  '">'); 
send('<INPUT  TYPE="hidden"  NAME="session"  VALUE=m  +SessionName+  ,M>,); 
send(T<PxCENTERxINPUT  TYPE="submit"  Value="Yes,  DELETE  this 
Sessionnx/CENTERx/FORM>'); 

sendC<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value=Ml">'); 
sendC<PxCENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
Delete"x/CENTERx/FORM>'); 
end;  {Delete  one  record} 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION=".ycgi-win/Adminpwd.exe"  METHOD="POSTM>'); 
send('<INPUT  TYPE-"hidden"  Name="flag"  Value^l'V); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
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closeApp(  application  ); 
end;  {with  cgiEnvDatal  do} 
end;  {FormCreate} 

end. 
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Deletion  Confirmation:  SessDel3.exe 

unit  Ses_del3; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM) 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
dSessionNumber,  dSession:  string; 

dflag:  string;  {valid  program  call} 


begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
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application.  processMessages; 

createStdout; 
sendPrologue; 

{Standard  Header} 

send  C<HTMLxHEAD>'); 

SendTitleCAsilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEAD><BODY  bgcolor=EFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  V)  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{ Get  Held  from  search  page } 

dSession:=  getsmallfield  ('Session'); 
dSessionnumber:=  getsmallfield  ('Sessionnumber1); 


if  dSession  =  'delete'  then  begin 

{Delete  ALL  the  Sessions} 

with  Sessions  do  begin 

open; 

first; 

while  not  EOF  do  begin 

delete; 

end;  {while  not  EOF} 

end;  {with  Sessions} 

sendhdr  ('2',  'ALL  Sessions  were  deleted!'); 
end  {if  Sdession  =  delete} 

else  begin  {Delete  one  Session} 

{Delete  Session  from  SESSION  Table} 
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with  Sessions  do  begin 

{ Move  to  proper  record} 

open; 
first; 

while  fieldbyName('Number').asstring  o  dSessionnumber  do 
next; 

{Delete  record  } 

edit; 

delete; 

close; 

end;      {with  Sessions} 


{Send  the  Thankyou  page  for  delete  one  record  } 

send  ('<P>The  Session  <B> '  +  dSession  +  '</B>  has  been  DELETED.</CENTERxBR>*); 

send('<PxFORM  ACTION="../cgi-win/SessDel.exeM  METHOD="POST">'); 
send(*<INPUT  TYPE="hidden"  Name^'flag"  Value^TV); 
sendC<PxCENTERxINPUT  TYPE^'submit"  Value="DELETE  more 
SessionsHx/CENTERx/FORM>'); 

end;  {else  Delete  one  Session} 

send('<PxFORM  ACTION="../cgi-win/Sessions.exe"  METHOD^TOST'V); 
send("<INPUT  TYPE="hidden"  Name=nflag"  Value='*r>'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Edit  more 
Sessions"x/CENTERx/FORM>'); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send(*<INPUT  TYPE^'hidden"  Name="flagH  Value="l">,); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Return  to  the  System  Admin 
Options  pagewx/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
sendhr; 
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send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  C<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  ('Return  to  the  <A  HREF="http://13 1 .  120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 
end;  {FormCreate} 
end.  {Application} 
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Choose  a  Keyword:  Keywords.exe 

unit  Keyword; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TFonn) 

CGIEnvDatal:  TCGBEnvData; 

CGIDB  1:TCGDDB; 

DataSource  1 :  TDataSource; 

Query  1:  TQuery; 

Tablel:TTable; 

Query  1  Name:  TStringField; 

Table  1  Number:  TIntegerField; 

Table  1  Name:  TStringField; 

Query  1  Number  TIntegerField; 

procedure  FormCreate(Sender:  TObject); 

procedure  CGIDB  10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header} 

webSiteINIFilename::=paramstr(  1 ); 
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applicanon.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag1); 

if  (dflag  = '  1 ')  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Send  intructions} 

send('<center>These  are  the  current  Keywords.  <br>'); 

send(To  edit  a  single  Keyword,  simply  click  on  the  Keyword  that  you  would  like  to 
change.<BR>'); 

send('  Other  options  are  available  at  the  bottom  of  the  page.<BR>'); 

{Retrieve  current  Keywords} 

with  Query  1  do  begin 

close; 

sql.clear; 

sql.add('Select*FROM  Keyword '); 

sql.add(*Order  By  Number1); 

open; 

if  recordcount  >  0  then  begin 
Table  1.  Open; 
CGIDBl.DrawTable; 
send('</center>'); 
Table  1. Close; 
end  {if  recordcount  >  0} 

else 

sendhdr  ('2','There  are  no  Keywords  in  the  Database!'); 

end;     {with  Query  1} 
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(Button  to  Add  keywords} 

send(*<PxFORM  ACTION="../cgi-win/KeyAdd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag,,  Value^TV); 
sendC<P><CENTERxINPUT  TYPE="submit"  Value="Add  a  New 
Keywordnx/CENTER></FORM>'); 

{Button  to  Delete  keywords} 

send('<PxFORM  ACTION="../cgi-win/KeyDel.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name=,,flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Delete 
Keyword(s)"x/CENTERx/FORM>*); 

{HTML  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

sendC<INPUT  TYPE="hidden"  Name="flag"  Value="  !">'); 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  (1<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is1); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC-\./prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ("Return  to  the  <A  HREF="http://13 1 .  120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  (*</BODYx/HTML>*); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  (,</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 
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end;     {with  CGIEnvDatal} 

end;     {FormCreate} 

procedure  TForml.CGIDB10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

{Hotlink  for  single  keyword  edit} 

s:-<A  HREF="../cgi-win/KeyEdit.exe?'+  currentrecord.rieldbyNameCNumber').AsString  + 

+  currentrecord.FieldbyNameCName').AsString  +  '</A>'; 
end; 
end. 
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Edit  a  Keyword:  KeyEditexe 

unit  Keyedit; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

DataSource  1 :  TDataSource; 

Keywords:  TTable; 

CGIEnvDatal:  TCGEnvData; 

CGIDB  1:TCGIDB; 

KeywordsNumber:  TIntegerField; 

KeywordsName:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
KeyNumber,  KeyName:  string; 


begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{Find  Keyword  to  edit} 

{ Get  field  from  search  page } 

KeyNumber:=  cgiQueryString^ 

with  Keywords  do  begin 

{Prepare  the  table} 

open; 
first; 

{Move  to  the  correct  keyword} 
while  KeyNumber  o  fieldbynameCNumber').asstring  do 
next; 

KeyName:13  fieldbynameCName^.asstring; 

end;    {with  Keywords} 

{Send  Keyword  edit  FORM  to  HTML  page} 

{Standard  Header} 

send  C<HTMLxHEAD>'); 

SendTitIe('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

send('Here  is  the  Keyword  you  wanted  to  edit.  Make  changes  and  "Submit"  them.<BR>'); 

send(*<PxFORM  ACTION="../cgi-win/keyedit2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE="text"  NAME="keyword"  SIZE="50"  VALUE="'  +KeyName+  '">'); 
sendC<INPUT  TYPE="hidden"  NAME="keynumber"  VALUE="'  +KeyNumber+  '">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Submit  Change  to  Keyword'V); 
send('<INPUT  TYPE="reset"  VALUE="Reset  to  Original 
Keyword"></CENTERx/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 
sendC<PxCENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
change"x/CENTERx/FORM>'); 
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{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD-TOST"^); 
sendC<INPUT  TYPE=Mhidden"  Name="flag"  Value="l">'); 

send(*<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page'^/CENTERx/FORM^); 
send  C</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  (with  cgiEnvDatal  do} 

end;     {FormCreate} 

end.    {Application} 
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Edit  Confirmation:  KeyEdit2.exe 

unit  Key_edt2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCG1DB; 

DataSourcel:  TDataSource; 

keywords:  TTable; 

procedure  FormCreate(  Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 

var 
dkeyword:  string; 
dkeynumber  string; 

dflag  string;  {valid  program  call} 

begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=rparamstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{Standard  Header} 

send  C<HTMLxHEAD>'); 

SendTitleCAsilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  1 ')  then  begin    {flag  is  set} 

send('<centerxH2>AsiIomar  Conference  System  Admimstration</H2x/center>'); 
sendhr; 


{ Get  field  from  search  page } 

dkeyword:^  getsmallfield  ('keyword'); 
dkeynumber:=  getsmallfield  ('keynumber'); 


{Put  changed  Keyword  into  KEYWORD  Table} 

with  Keywords  do  begin 

{ Move  to  proper  record} 

open; 
first; 

while  fieldbyNameCNumber').asstring  o  dkeynumber  do 
next; 

{Update  record  } 

edit; 

SetFields([nil,  dkeyword]); 

post; 

close; 

end;      {with  Keywords} 


{Send  the  Thankyou  page  } 

send  ('<P>The  Keyword  has  been  changed  to  <B>  '  +  dkeyword  +  "</B>. </CENTERxBR>'); 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD="POST">'); 
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send('<INPUT  TYPE="hidden"  Name=Mflag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Edit  more 
Keywords,,x/CENTERx/FORM>'); 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACT10N="../cgi-win/Adminpwd.exe"  METHOEH'TOSTV); 
send('<INPUT  TYPE="hidden"  Name="flag"  Vahie=nr>'); 

send('<P><CENTERxlNPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  pag^'x/CENTERx/FORM^); 

end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &.  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Tleturn  to  the  <A  HREF="http://131.120.20.70/Index.htm^,>Asilomar,); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('^BODYx/HTML^); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  C</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;     {with  CGEEnvDatal} 
end;     {FormCreate} 
end.  {Application} 
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Add  a  Keyword:  KeyAdd.exe 

unit  Key_add; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  l.TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Tablel:TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

dflag:  string;  {valid  program  call} 

implementation 

($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 
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{Standard  Header} 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  V)  then  begin     {flag  is  set} 

sendC<centerxH2>Asilomar  Conference  System  Administration</H2></center>f); 
sendhr; 

{Send  Keyword  ADD  Form  to  HTML  page} 

send(Till  in  the  Keywords  you  would  like  to  add.<BR>'); 
send('You  may  fill  in  all  or  none  of  these  fields.  <BR>'); 

send('<PxFORM  ACTION="../cgi-win/KeyAdd2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE=Mhidden"  Name="flag"  Value=Ml">'); 
send('<PxB>New  Keyword:  </BxINPUT  TYPE="text"  NAME="keywordl"  >'); 
send('<PxB>New  Keyword:  </BxINPUT  TYPE="text"  NAME="keyword2"  >'); 
send('<PxB>New  Keyword:  </BxlNPUT  TYPE=,,text"  NAME="keyword3"  >'); 
send('<PxB>New  Keyword:  </BxINPUT  TYPE="text"  NAME="keyword4"  >'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="ADD  these 
Keywords"x/CENTERx/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT  Add  any 
KeywordsMx/CENTER></FORM>,); 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l,*>'); 

send(*<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 
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sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions  <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'V); 

send  ("Return  to  the  <A  HREF="http://13 1 .  120.20.70/Index.html">AsilomaiJ); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGEEnvDatal} 

end;     {FormCreate} 

end.  {Application} 
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Addition  Confirmation:  KeyAdd2.exe 

unit  Key_add2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGEEnvDatal:  TCGEnvData; 

CGIDB  1:TCGIDB; 

DataSource  1 :  TDataSource; 

Tablel:TTable; 

Table  1  Number:  TIntegerField; 

Table  1  Name:  TStringField; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
dkeywordl:  string; 
dkeyword2:  string; 
dkeyword3:  string; 
dkeyword4:  string; 

begin 
with  CGIEnvDatal  do  begin 
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webSitelNff  ilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandIer; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>*); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  V)  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{  Get  field  from  search  page  } 


dkeywordl 
dkeyword2 
dkeyword3 
dkeyword4 


=  getsmallfield  ('keyword  1'); 
=  getsmallfield  Ckeyword2'); 
=  getsmallfield  Ckeyword3'); 
=  getsmallfield  ('keyword4'); 


{ADD  Keywords  into  KEYWORD  Table} 

with  Table  1  do  begin 

{Update  record  } 

open; 

if  dkeywordl  o "  then 
AppendRecord([nil,  dkeywordl]); 

if  dkeyword2  o  "  then 
AppendRecord([nil,  dkeyword2]); 

if  dkeyword3  o  "  then 
AppendRecord([nil,  dkeyword3]); 
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if  dkeyword4  o "  then 
AppendRecord([nil,  dkeyword4]); 

close; 

end;     {with  tablel} 


{Send  the  Thankyou  page  } 

sendhdr  ('3',  The  following  Keywords  have  been  ADDED  <BR>'); 
send  C<P><B>*  +dkeywordl+  '<BR>'); 
send  ("  +dkeyword2+  '<BR>'); 
send  ("  +dkeyword3+  '<BR>'); 
send  ("  +dkeyword4+  *</B>'); 

send  ('</CENTER>'); 

sendC<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD^'POST'V); 
send('<INPUT  TYPE="hiddenM  Name="flag"  Value="r>'); 
sendC<PxCENTERxINPUT  TYPE="  submit"  Value="Edit  more 
Keywords^x/CENTERx/FORM^); 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="  ./cgi-win/Adminpwd.exe"  METHOD^'POST'V); 

send(*<INPUT  TYPE="hidden"  Name="flag"  Value="lM>'); 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF- ' ../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<P><hrxPx:IMG  SRC-'../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  CReturn  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 
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send  ('Conference  On-line  Submission  Page</A>'); 
send  ('<VBODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('<^BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;     {FormCreate} 

end.  {Application} 
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Delete  Keyword(s):  KeyDel.exe 

unit  Keydel; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Tablel:TTable; 

CGIEnvDatal:  TCGEEnvData; 

CGIDB  1:TCGIDB; 

Table  1  Number:  TIntegerField; 

TablelName:  TStringField; 

Query  1  Number:  TIntegerField; 

QuerylName:  TStringField; 

procedure  FormCreate(  Sender:  TObject); 

procedure  CGIDB  10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
dflag:  string; 

begin 

with  CGIEnvDatal  do  begin 
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{Standard  Header} 

webSiteINIFilename:==paramstr(  1 ); 

application.onException:=cgiEiTorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

send  C<HTMLxHEAD>*); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag™  getsmallfietd  ('flag'); 

if  (dflag  =  T)  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Send  Instructions} 

send('<center>These  are  the  current  Keywords.  <br>'); 

send(To  DELETE  a  Keyword,  simply  select  the  Number  next  to  the  Keyword  that  you  would 
like  to  DELETE.<BR>*); 

{Retrieve  current  Keywords} 

with  Query  1  do  begin 

close; 

sql.clear; 

sql.add('Selecr*FROM  Keyword '); 

sqi.add('Order  By  Number'); 

open; 

if  recordcount  >  0  then  begin 
Table  1.  Open; 
CGIDBl.DrawTable; 
send('</center>'); 
Table  1. Close; 
end  (if  recordcount  >  0} 

else 

sendhdr  ('2','There  are  no  Keywords  in  the  Database  to  Delete!'); 
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end;     {with  Query  1} 


{Delete  all  fields  option} 

sendC<PxFORM  ACTION="../cgi-win/KeyDel2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l,,>'); 
send('<INPUT  TYPE="hidden"  Name="DeleteAH"  Value="Yes">'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="****  Delete  ALL  the  Keywords 
****"x/CENTERx/FORM>'); 

{HTML  Footer} 

sendhr; 

send('<PxFORM  ACTION=''../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE=Mhidden"  Name="flag"  Value='T'>'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value=nRetum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF- '../prototype/admin20.htrn">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is1); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'*^); 

send  ("Return  to  the  <A  HREF="http://131.120.20.70/Index.htmr'>Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  (*</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGBEnvDatal} 
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end;     {FormCreate} 

procedure  TForml.CGIDB10nSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
begin 

(Hotlink  for  single  keyword  edit} 

s:-<A  HREF="../cgi-win/KeyDel2.exe?'+  currentrecord.fieldbyName('Number,).AsString  + 

+  currentrecord.FieldbyName(TSfumber').  AsString  +  '</A>'; 
end; 
end. 
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Verification  of  Delete:  KeyDel2.exe 

unit  Key_del2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

Table  1  Number:  TIntegerField; 

Table  IName:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Form  1:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

KeyNumber,  {Number  of  the  Keyword  record} 

KeyName,  {Name  of  the  Keyword} 

dDeleteAH,  {action  flag  -  if  set  then  delete  all  the  Keywords} 

dflag:  string;  {valid  program  call} 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename::=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 


344 


application.processMessages; 

createStdout; 
sendPrologue; 

(Standard  Header} 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  (*</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  = '  1')  then  begin     { flag  is  set} 

sendC<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Find  Keyword  to  Delete} 

{ Get  field  from  search  page } 

try 

dDeleteAll:=  getsmallfield  CDeleteAll'); 
finally 

{Check  to  see  if  'Delete  all  fields'  is  true} 

KeyNumber:=  cgjQueryStringA; 
end; 

if  getsmallfield  (DeleteAll1)  o  cginotfound  then  begin 

{Check  to  see  if  'Delete  all  fields'  is  true} 

dDeleteAll:=  getsmallfield  CDeleteAll*); 

if  dDeleteAll  =  'Yes'  then  begin 

with  Table  1  do  begin 

sendhdr  ('2',  'Are  you  sure  you  want  to  Delete  ALL  of  the  Keywords  in  the  Database!'); 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
Delete"x/CENTERx/FORM>'); 
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send('<PxFORM  ACTION="../cgi-win/KeyDel3.exe"  METHOD^'POST'V); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
sendC<INPUT  TYPE="hidden"  NAME="keynumber"  VALUE^'delete'V); 
send('<INPUT  TYPE="hidden"  NAME="keyname"  VALUE="delete">'); 
send('<PxCENTERxINPUT  TYPE=usubmit"  Value="***  YES  -  DELETE  ALL 
Keywords  in  the  Database!  ***,,x/CENTERx/FORM>'); 
end;  {with  Tablel} 

end;  {if  dDeleteAH} 

end  {if  cginotfound} 

else  begin  {Delete  one  record} 

with  Tablel  do  begin 

{Prepare  the  table} 

open; 
first; 

{find  the  correct  keyword} 

if  KeyNumber  o  fieldbynameCNumber').asstring  then  begin 

{move  to  the  next  field  until  we  find  the  correct  one} 

repeat 

next; 

until  KeyNumber  =  fieldbynameCNumber').asstring; 
end;  {if  keyword} 

{Get  the  Keyword  Name} 

KeyName:=  fieldbyname('Name').asstring; 
end;    (with Tablel} 

{Send  Keyword  edit  FORM  to  HTML  page} 

send('Are  you  sure  you  want  to  DELETE  the  keyword  <B>'  +KeyName+  '  </BxBR>'); 

send('<PxFORM  ACTION="../cgi-win/KeyDel3.exe"  METHOD-'TOST'V); 
send('<INPUT  TYPE="hidden"  Name- 'flag"  Value="l">'); 

send('<INPUT  TYPE="hidden"  NAME="keynumber"  VALUE=m  +KeyNumber+  m>*); 
send('<INPUT  TYPE=Mhidden"  NAME="keyname"  VALUE=m  +KeyName+  '">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Yes,  DELETE  this 
Keyword,,x/CENTERx/FORM>,); 
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send('<PxFORM  ACTION='\./cgi-win/Keywords.exe"  METHOENTOSrv); 
send(*<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send(*<P><CENTERxINPUT  TYPE="submit"  Value="CANCEL  -  Do  NOT 
Delete,,x/CENTERx/FORM>'); 
end;  {Delete  one  record} 

{Standard  Footer} 

sendhr; 

send(*<PxFORM  ACTION=n../cgi-win/Adminpwd.exe"  METHOD=TOST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  (l<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civiJ  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 


send  ('<PxhrxpxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'V); 

send  ORetum  to  the  <A  HREF="http://131. 120.20.70/Index.htmr>Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  C</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('<VBODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;  {Formcreate} 

end.  {Application} 
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Deletion  Confirmation:  KeyDeI3.exe 

unitKey_del3; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

DataSource  1 :  TDataSource; 

Keywords:  TTable; 

CGIEnvDatal:  TCGDEnvData; 

CGIDB1:TCGIDB; 

KeywordsNumben  TIntegerField; 

KeywordsName:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dKeyNumber,  dKeyword:  string; 

dflag:  string;  {valid  program  call} 


begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  T)  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{ Get  field  from  search  page } 

dkeyword"  getsmallfield  ("keyname*); 
dkeynumber:=  getsmallfield  ('keynumber*); 


if  dkeyword  =  'delete'  then  begin 

with  Keywords  do  begin 

open; 
first; 

while  not  EOF  do 
delete; 

end;  {with  Keywords} 

sendhdr  ('2',  'ALL  Keywords  were  deleted!'); 
end  { if  dkeyword  =  delete} 

else  begin  {Delete  one  keyword} 

{Delete  Keyword  from  KEYWORD  Table} 

with  Keywords  do  begin 
{  Move  to  proper  record} 


349 


open; 
first; 

while  fieldbyName('Number').asstring  o  dkeynumber  do 
next; 

(Delete  record  } 

edit; 

delete; 

close; 

end;      {with  Keywords} 


{Send  the  Thankyou  page  } 

send  ('<P>The  Keyword  <B> '  +  dkeyword  +  '</B>  has  been  DELETED.  </CENTERxBR>'); 
send('<PxFORM  ACTION='\./cgi-win/KeyDel.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="DELETE  more 
Keywords"x/CENTERx/FORM>*); 

end;  {else  Delete  one  keyword} 

send('<PxFORM  ACTION="../cgi-win/Keywords.exe"  METHOD="POST">'); 
send(*<INPUT  TYPE="hidden"  Name="flag"  Value='T'>'); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Edit  more 
Keywords"x/CENTERx/FORM>'); 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adininpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE=,thidden"  Name="flag"  Value="l">*); 

send('<PxCENTERxINPUT  TYPE="submit"  Value=HReturn  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  mis  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  (*<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 
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send  ('prosecution  for  your  actions.  <BR>'); 

send  C<PxhrxpxIMG  SRC- '../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 
send  ('Return  to  the  <A  HREF="http://13 1 .  120.20.70/Index.html">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;  {Formcreate} 

end.  {Application} 
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Display  Titles:  Invitcexe 

unit  Invite_; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  TTable; 

CGIEnvDatal:  TCGEnvData; 

CGIDB  1:TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
dbtitle,  dbPaperNumber:  string; 

dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 

send  ('<HTMLxHEAD>'); 
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SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  (*</HEADxBODY  bgcolor=FFFFFF>'); 

{Determine  whether  flag  is  valid) 

dflag~  getsmallfield  ('flag'); 

if  (dflag  - '  I1)  then  begin    {flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Admimstration</H2x/center>'); 
sendhr; 


{Send  Instructions} 

send('<P>Articles  must  be  marked  as  Invited  so  they  will  not  be  included  in  the  Review 
process. '); 

sendC<PxULxLI>To  mark  Articles  as  Invited,  select  the  checkbox  next  to  the 
Title.<BR>»); 

send('<LI>To  change  Articles  to  NOT  Invited,  change  the  action  in  the  drop-down  box  to 
"NOT  Invited"  and  then »); 

send('select  the  checkbox  next  to  the  Title.  </UL>'); 

send('<P>Note:  it  is  not  necessary  to  mark  an  article  NOT  Invited  unless  it  was  previously 
marked  Invited '); 

send('and  it  needs  to  be  changed  When  printing  Article  information  for  review,  only  Articles 
marked  Invited  are '); 

send('ignored.  Articles  that  are  not  marked  <B>or</B>  are  marked  NOT  Invited  are  printed 
for  review.'); 

sendhr; 
{Build  Form} 

send('<FORM  ACTION="../cgi-win/Invite2.exe"  METHOD="GET">'); 

{Build  Pull-Down  menu  for  choices} 

send('<PxcenterxSELECTNAME="Action">'); 
send(*<OPTION>  Invited'); 
send('<OPTION>  NOT  Invited'); 
send('</SELECTx/centerxp>'); 

{Build  the  check  boxes  of  Titles} 

with  Articles  do  begin 
open; 
first; 
While  not  Articles.EOF  do  begin 

dbtitle:=  fieldbyname(Title').  asstring; 

dbPaper_Number.-fieldbyname(Paper_Number').asstring; 
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send  ('<INPUT  TYPE="checkbox"  NAME="T"  Value="'  +dbPaper_Number+  '"># ' 
+dbPaper_Number+  * '  +dbtitle+  '<BR>'); 

next; 

end;  {while  not  EOF) 
close; 
end;  {with  articles  do} 

send('<PxCENTERxINPUT  TYPE=Msubmit"  Value="  Submit  these  articles  "xP>  '); 
send('<INPUT  TYPE="reset"  VALUE="Reset  values"x/CENTERx/FORM>,); 


sendhr; 

send(*<PxFORM  ACTION="../cgi-win/Adminpwd.exe*'  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value=*T'>'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 

send  ('<PxhrxPxIMG  SRO"../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ("Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 
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end;     {FormCreate} 

end. 
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Invite  Titles:  Invite2.exe 

unit  Invite_2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB1:TCGIDB; 

DataSource  1 :  TDataSource; 

Articles:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

i,  j,  dTitle,  MySelector,  dbPaperNumber  integer; 

dAction :  string; 

dTitlein:  string; 

dString,  AssignString:  string; 

Titlelist :  TStringList; 

function  TitleToInt  (  S:  string)  :integer; 

implementation 

{$R  *.DFM} 

function  TitleToInt  (  S:  string) :  integer; 

{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp:  string;     {temporary  variable  to  build  new  string  into} 

j:  integer;       {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

{set  the  counter  to  zero} 

j~0; 

{count  the  characters} 

repeat 

until  SD+1]  =  "; 

{Copy  the  valid  number  characters  over  to  temp} 

temp  :=  Copy(S,  l,j); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 

end;  {NoSpaces} 

procedure  TForml.formcreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSitelNIFilenamer^paramstrC  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  (^HTMLxHEAD^); 

SendTitleCAsilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor-FFFFFF>*); 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

{Get  query  string  from  Assign.exe} 

Titlelist"  TStringlist. create;     {list  of  titles  to  assign  to  the  session} 

AssignString:=  CGIQueryStringA; 
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j:=  0;      {The  counter  for  the  individual  strings  within  the  Query  String) 

for  i  :=  7  to  Length(AssignString)  do  {The  counter  for  going  through  the  Assign  St  ring  - 
eight  is  the  first  valuable  character  (the  beginning  of  the  Session  Neumon  re) } 

if  AssignStringfi]  o  '&'  then  begin     {the  character  is  valuable) 

dStringjj]  ~  AssignString[i]; 

j:=j+l; 

end  {if  AssignStringfi]  o  '&'  then) 
else  begin    {The  &  signifies  the  end  of  the  string) 

TitleList.add  (dString); 

dString— '  ';     {Blank  out  the  old  values) 

j:=0;  {reset  the  string  counter) 

i:=  i+1 ;  {Skip  over  the  text  "T="} 

end;  {else} 

TitleList.add  (dString);     {This  is  to  put  the  last  string  into  the  string  list.  It  is 
necessary  because  there  is  no  &  at  the  end) 

{Place  the  Session  Neumonic  into  each  PaperN  umber  passed) 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic) 

dAction:=  TitleList[0]; 

if  (dActionfl]  =  T)  then  MySelector  :=  1; 
if  (dActionfl]  =  *N')  then  MySelector  :=  2; 


case  MySelector  of 

1  :  begin      {Invite  only) 

{Send  confirmation) 

sendhdr  (*3*,  '<P>The  following  Articles  were  INVITED^brxcenter^); 

{Invite  the  articles  with  the  selected  PaperN  umbers} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use) 

for  i:=  1  to  TitleList. count- 1  do  begin    {The  rest  of  the  items  are  Paper_Numbers) 

{Get  the  next  title  number) 

dTitlein:=  TitleList[i]; 

{Convert  the  Title  string  to  an  integer  value) 
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•<BR>'); 


dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname(Taper_Number').asinteger  o  dTitle  do 
next; 

{Invite  the  Article} 

edit; 

Setfields  ([nil,  nil,  rYr\);  {The  remaining  fields  are  ignored) 

post; 

{Send  title  name} 

send('# '  +fieldbyname{Paper_Number').asstring+  ' '  +fieldbyname(Title').asstring+ 


end,  {for} 

close;  { the  table} 

end;  {with  Articles} 
send('</center>'); 
end;  {Accept  only} 


2  :  begin    {NOT  Invited} 

{Send  confirmation} 

sendhdr  ('3',  '<P>The  following  Articles  were  marked  as  NOT 
INVTTED:<brxcenter>*); 

{Invite  the  articles  with  the  selected  PaperNumbers} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 


for  i:=  1  to  TitleList. count- 1  do  begin    {The  rest  of  the  items  are  Paper_Numbers} 

{Get  the  next  title  number} 

dTitlein:=  TitleList[i]; 

{Convert  the  Title  string  to  an  integer  value} 

dTitle™  TitleToInt  (dTitlein); 

{Move  to  proper  record} 
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•<BR>*); 


first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbynameCPaperNumber^.asinteger  o  dTitle  do 
next; 

(Invite  the  Article} 

edit; 

Setfields  ([nil,  nil,  TsP]);  {The  remaining  fields  are  ignored} 

post; 

{Send  title  name} 

send('# '  +fieldbyname(Paper_Numbef  ).asstring+  ' '  +fieldbyname('Title').asstring+ 


end;  {for} 

close;  { the  table} 

end;  {with  Articles} 

end;  {Invite  AND  NOT  Invite} 

else  begin  {selector  not  working} 

send('Selector  did  not  work<BR>'); 
send(' Action  was '  +dAction+  '.'); 
end;  {else} 

end; {case} 


{Send  Footer} 

sendO<PxFORM  ACTION="../cgi-win/Invite.exe"  METHOD^POST'V); 
send('<CENTERxINPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxINPUT  TYPE="submit"  Value="Invite  more  Articles"x/FORMxp>  '); 

sendhr; 

send(*<PxFORM  ACnON="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value-"  1">'); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  (,</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 
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end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 
end. 
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Select  Articles:  Choose.exe 

unit  Choose_; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB1:TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Articles:  TTabie; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
dbtitle,  dbPaperNumber:  string; 

dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 


with  CGIEnvDatal  do  begin 

webSiteINIFilename::=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 
createStdout; 
sendPrologue; 
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send  ('<h™LxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


(Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  T)  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Build  Form} 

send('<PxFORM  ACTION="../cgi-win/Choose2.exe"  METHOD="GET">'); 

{build  Pull-Down  menu  for  choices} 

send(There  are  four  methods  of  accepting  or  rejecting  Articles:<BRxul>'); 
send('<LI> Accept  the  selected  articles  only,  do  not  modify  any  other  Articles'); 
send('<LI>Accept  the  selected  articles  AND  Reject  all  others'); 
send('<LI>Reject  the  selected  articles  only,  do  not  modify  any  other  Articles'); 
send('<LI>Reject  the  selected  articles  AND  Accept  all  others</ul>'); 

send('<P><centerxSELECTNAME="Action">'); 
send('<OPTION>  ACCEPT); 
send('<OPTION>ACCEPT_then_Reject'); 
sendC<OPTION>  REJECT); 
send('<OPTlON>  REJECTthenAccept'); 
send(*</SELECTx/centerxp>'); 

{Build  the  check  boxes  of  Titles} 

with  Articles  do  begin 
open; 
first; 
While  not  Articles.EOF  do  begin 

dbtitle™  fieldbyname(Title').  asstring; 

dbPaper_Number:=  fieldbynameCPaperNumber').  asstring; 

send  ('<INPUT  TYPE="checkbox"  NAME="T"  Value=m  +dbPaper_Number+  *"> 
+dbtitle+ '  <BR>'); 

next; 

end;  {while  not  EOF} 
close; 
end;  {with  articles  do} 
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send('<PxCENTER><INPUT  TYPE="submit"  Value="  Accept  /  Reject  these  articles  "><P> 
send('<INPUT  TYPE="reset"  VALUE="Reset  values"x/CENTERx/FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exeH  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
endb} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<center><H2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  C<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  Cmaintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPx:IMG  SRC- '.Vprototype/asil2b0.gif  "  align=left  alt="Asilomar  facility'V); 
send  ("Return  to  the  <A  HREF="http://13 1. 1 20.20. 70/Index.  html  ">Asilomar'); 
send  ('Conference  On-line  Submission  Page</A>'); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;     {FormCreate} 

end. 
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Accept  /  Reject  Articles:  Choose2.exe 

unit  Choose_2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGDEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

i,  j,  dTitle,  My  Selector,  dbPaperNumber:  integer; 

dAction :  string; 

dTitlein:  string; 

dString,  AssignString:  string; 

Titlelist :  TStringUst; 

function  TitleToInt  (  S:  string)  :integer, 

implementation 

{$R  *.DFM} 

(*** **************** **********#*********( 

function  TitleToInt  (  S:  string) :  integer; 

(This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp:  string;      {temporary  variable  to  build  new  string  into} 

j:  integer;       {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

{set  the  counter  to  zero} 

j:=0; 

{count  the  characters} 

repeat 

JT-j+1; 
until  S[j+1]  =  "; 

{Copy  the  valid  number  characters  over  to  temp} 

temp  :=  Copy(S,  l,j); 

(Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 

end;  {NoSpaces} 

procedure  TForml.formcreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>r); 

sendhr; 

{Get  query  string  from  Assign.exe} 

Titlelist:=  TStringlistcreate;     {list  of  titles  to  assign  to  the  session} 

AssignString™  CGIQueryStringA; 
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j:=  0;      {The  counter  for  the  individual  strings  within  the  Query  String) 

for  i  :=  7  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString  - 
eight  is  the  first  valuable  character  (the  beginning  of  the  Session  Neumonic) } 

if  AssignString[i]  o  '&'  then  begin     {the  character  is  valuable) 

dString[j  j  :=  AssignString[i]; 

end  (if  AssignString[i]  o  '&'  then} 
else  begin    {The  &  signifies  the  end  of  the  string} 
TitleListadd  (dString); 

dString:= '  ';      {Blank  out  the  old  values} 

j:=0;  {reset  the  string  counter} 

i:=  i+ 1 ;  {Skip  over  the  text  ,,T=,,} 

end;  {else} 

TitleListadd  (dString);     {This  is  to  put  the  last  string  into  the  string  list  It  is 
necessary  because  there  is  no  &  at  the  end} 

{Place  the  Session  Neumonic  into  each  Paper  Number  passed} 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic} 

dAction:=  TitleList[0]; 

if  (dAction[l]=*A')  and  (dAction[7]  o '_')  then  MySelector  :=  1; 
if  (dAction[l]='A')  and  (dAction[7]  = '_')  then  MySelector  :=  2; 
if  (dAction[l]=rR')  and  (dAction[7]  o  *_')  then  MySelector  :=  3; 
if  (dAction[l]-R')  and  (dAction[7]  =  '_*)  then  MySelector  :=  4; 


case  MySelector  of 

1  :  begin     {Accept  only} 

{Send  confirmation} 

sendhdr  ('3',  '<P>The  following  Articles  were  ACCEPTED:<brxcenter>'); 

{accept  the  articles  with  the  selected  PaperJNfumbers} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 

for  i :=  1  to  TitleList. count- 1  do  begin    {The  rest  of  the  items  are  Paper_Numbers} 

{Get  the  next  title  number} 

dTitlein:=TitleList[i]; 
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{Convert  the  Title  string  to  an  integer  value} 

dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbynameCPaperNumber^.asinteger  o  dTitle  do 
next; 

{Insert  tbe  Session} 

edit; 

Setfields  ([nil,  nil,  nil,  'T]);  {The  remaining  fields  are  ignored} 

post; 

{Send  title  name} 

send("  +fieldbyname(Title,).asstring+  '<BR>'); 

end;  {for} 
close;  { the  table} 

end;  {with  Articles} 

sendO</center>'); 
end;  {Accept  only} 

2  :  begin    {Accept  and  Reject} 

{Send  confirmation} 

sendhdr  ('3',  '<P>The  following  Articles  were  ACCEPTED:<brxcenter>'); 

{accept  the  articles  with  the  selected  PaperJNumbers} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 

{Set  all  *Not  Invited*  Articles  to  "rejected"} 

while  not  EOF  do  begin 

if  fieldbyname('Invited').asstring  o  'V  then  begin 

edit; 

Setfields  ([nil,  nil,  nil,  "N1]);  {The  remaining  fields  are  ignored} 

post; 

end;  {If  not  invited} 

next; 
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end;  {While} 
for  i:=  1  to  TitleList. count- 1  do  begin    {The  rest  of  the  items  are  Paper_Numbers} 

{Get  the  next  title  number} 

dTitlein:=  TitleList[i]; 

{Convert  the  Title  string  to  an  integer  value} 

dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname(Paper_Number').asinteger  o  dTitle  do 
next; 

{Insert  the  Session} 

edit; 

Setfields  ({nil,  nil,  nil,  'Y1]);  {The  remaining  fields  are  ignored} 

post; 

{Send  title  name} 

send("  +fieldbyname(Title,).asstring+  '<BR>'); 

end;  {for} 
close;  { the  table} 
end;  {with  Articles} 
sendhdr('3',  '<P>A11  OTHER  Articles  were  Rejected! </centerxBRxP>'); 
end;  {Accept  and  Reject} 
3  :  begin    {'Reject  only} 

{Send  confirmation} 

sendhdr  ('3',  '<P>The  following  Articles  were  REJECTED:<brxcenter>'); 

{The  rest  of  the  items  are  Paper__Numbers} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 

for  i:=  1  to  TitleList.count-1  do  begin 

{Get  the  next  title  number} 
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dTitlein:=  TitleListfi]; 

{Convert  the  Title  string  to  an  integer  value} 

dTitle~  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname(Paper_Number').asinteger  o  dTitle  do 
next; 

{Insert  the  Session} 

edit; 

Setfields  ([nil,  nil,  nil,  'N1]);  {The  remaining  fields  are  ignored} 

post; 

{Send  title  name} 

send("  +fieldbyname(Title').asstring+  '<BR>'); 

end;  {for} 

close;  { the  table} 
send('</center>'); 

end;  {with  Articles} 

end;  {Reject  only} 

4:  begin  {'Reject  and  accept1} 

{Send  confirmation} 

sendhdr  ('3',  '<P>The  following  Articles  were  REJECTED :<brxcenter>'); 

{accept  the  articles  with  the  selected  PaperNumbers} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 

{Set  all  *Not  Invited*  Articles  to  "accepted"} 

while  not  EOF  do  begin 

if  fieldbyname  ('Invited'). asstring  o  V  then  begin 

edit; 

Setfields  ([nil,  nil,  nil,  'Y']);  {The  remaining  fields  are  ignored} 

post; 
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end;  {If  not  invited} 

next; 

end;  (While} 

for  i:=  1  to  TitleList.count-1  do  begin    {The  rest  of  the  items  are  Paper_Numbers} 

{Get  the  next  title  number} 

dTitlein:=  TitleList[i]; 

{Convert  the  Title  string  to  an  integer  value} 

dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname^PaperNumber^.asinteger  o  dTitle  do 
next; 

{Insert  the  Session} 

edit; 

Setfields  ([nil,  nil,  nil,  "N1]);  {The  remaining  fields  are  ignored} 

post; 

{Send  title  name} 

send(H  +fieldbyname(Title,).asstring+  '<BR>'); 

end;  {for} 
close;  { the  table} 
end;  {with  Articles} 

sendhdr03',  '<P>A11  OTHER  Articles  were  Accepted K/centerxBRxP^); 

end;  {Reject  and  accept} 
else  begin  {selector  not  working} 

send('Selector  did  not  work<BR>'); 
send('Action  was '  +dAction+  '.'); 
end;  {else} 

end;  {case} 
{Send  Footer} 
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{Button  to  Accept/Reject  more  Articles} 

send(*<PxFORM  ACTION="../cgi-win/Choose.exe"  METHOD=,,POST">'); 
send('<CENTERxINPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxINPUT  TYPE="submit"  Value=" Accept/Reject  more  Articles"x/FORMxp>  •); 

{Button  to  move  to  Assign  Articles  to  Sessions) 

send('<PxFORM  ACTION="../cgi-win/Assign.exe"  METHOD=TOST">t); 
send(,<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 
send('<PxlNPUT  TYPE="submit"  Value- 'Now  Assign  the  Articles  to  Sessions " 
Size="30nx/centerx/FORM>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe,,  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value=T'>'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FOmx/BODYx/HTML>*); 
closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do) 
end;     {FormCreate} 

end. 
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Assign  Articles:  D_Assign.exe 

unit  Dassign; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForra) 

CGEEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Sessions:  TTable; 

Articles:  TTable; 

SessionsNumber:  TIntegerField; 

SessionsNeumonic:  TStringField; 

Query  1  Number:  TIntegerField; 

Query  INeumonic:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 

Forml.  TForml; 
dbtitle,  dbPaperNumber:  string; 

dflag:  string;  {valid  program  call} 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGDEnvDatal  do  begin 
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webSitelNIFilename^aramsfcX  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcotor=FFFFFF>'); 

{Determine  whether  flag  is  valid} 

dflag~  getsmaltfield  ('flag'); 

if  (dflag  = '  1 ')  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

{Build  Form} 

send('<PxFORM  ACTION="../cgi-win/Assign2.exe*'  METHOD^'GET'V); 


{Pull  Sessions  from  SESSION  Table } 

with  Query  1  do  begin 
close; 
sql.clear; 

sql.addOSelect  *  FROM  Session '); 
open; 

{Move  records  from  query  result  to  Session  Pull-down  menu} 

Sessions,  open; 
Sessions,  first; 

send('<P><B>Assign  the  following  Titles  to  Session:  </BxSELECT 
NAME="Session">'); 

while  not  Sessions.EOF  do  begin 

send('<OPTION> '  +Sessions.fieldByName(,Neumonic').Asstring+ "); 

sessions.next; 

end;  {for  all  records  in  the  query  result} 
send('</SELECTxp>'); 

end;  {with  query  1} 

with  articles  do  begin 
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open; 

first; 

While  not  Articles.EOF  do  begin 

dbtitle:=  fieldbyname(Title').  asstring; 

dbPaper_Number:=fieldbyname('Paper_Number').asstring; 

send  ('<INPUT  TYPE="checkbox"  NAME="Title"  Value='"  +dbPaper_Number+  *"> ' 
+dbtitle+ '  <BR>'); 

next; 

end;  {while  not  EOF} 
close; 
end;  {with  articles  do} 

send('<PxCENTERxINPUT  TYPE="submit"  Value=" Assign  the  selected  articles  to  the 
specified  Session"xP>  '); 

send('<INPUT  TYPE="reset"  VALUE="Reset  values"x/CENTERx/FORM>'); 

sendhr; 

send('<PxFORM  ACTION=''../cgi-win/Adminpwd.exe*'  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name=Mflag"  Value^TV); 

send('<PxCENTERxlNPUT  TYPE- 'submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  (,</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  (,<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  (*<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">*); 

send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 
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end;  {flag  **incorrect**} 
end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 
end.  {Application} 
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Order  Articles:  Assign2.exe 

unit  Assign_2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

Articles:  TTable; 

DataSource  1 :  TDataSource; 

CGIEnvDatal:  TCGDEnvData; 

CGIDB  1:TCGIDB; 

procedure  formcreate( Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

ij,  dTitle:  integer; 

dsession :  string; 
dTitlein,  dTitlestr:  string; 
dString,  AssignString:  string; 
dnum:  string; 

Titlelist :  TStringList; 

function  TitleToInt  (  S:  string)  :integer; 

implementation 

{$R  *.DFM} 

function  TitleToInt  (  S:  string)  :integer; 

{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp:  string;      {temporary  variable  to  build  new  string  into} 

j:  integer;        (Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

{set  the  counter  to  zero} 

j~0; 

{count  the  characters} 

repeat 

j:=j+l; 
until  S[j+1]  =  "; 

{Copy  the  valid  number  characters  over  to  temp} 

temp  :=  Copy(S,  1J); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 

end;  {TitleToInt} 

procedure  TForml.formcreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.  processMessages ; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 


{Get  query  string  from  Assign.exe} 

Titlelist:=  TStringlist.create;     {list  of  titles  to  assign  to  the  session} 

AssignString:=  CGIQueryStringA; 
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j:=  0;      {The  counter  for  the  individual  strings  within  the  QueryString} 

for  i  :=  8  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString  - 
eight  is  the  first  valuable  character  (the  beginning  of  the  Session  Neumonic) } 

if  AssignStringfi]  o  '&'  then  begin     {the  character  is  valuable} 

dStringU]  :=  AssignStringfi]; 

j:=j+l; 

end  {if  AssignString[i]  o  '&'  then} 
else  begin    {The  &  signifies  the  end  of  the  string} 

TitleListadd  (dString); 

dString:= '       ';      {Blank  out  the  old  values} 

j  :=0;  {reset  the  string  counter} 

i:=  i+5;  {Skip  over  the  text  "title="} 

end;  {else} 

TitleListadd  (dString);     {This  is  to  put  the  last  string  into  the  string  list.  It  is 
necessary  because  there  is  no  &  at  the  end} 

{Place  the  Session  Neumonic  into  each  PaperNumber  passed} 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic} 

dSession:=  TitleList[0]; 

{Send  confirmation} 

send  ('<P>The  following  Articles  were  placed  in  Session  <B>'  +dSession+  '</B>. '); 
send  ('Please  enter  the  order  number  in  the  box  next  to  the  Title.<BRxB>Note:</B>  Ensure 
that  a  number  is  entered.  The '); 

send  ('Order  number  will  <B>always</B>  be  updated  with  this  entry. '); 
send  ('If  it  is  left  blank,  the  order  number  will  be  blank.<P>'); 

{Start  the  FORM  that  will  assign  the  order  number  within  the  session} 
send('<PxFORM  ACTION="../cgi-win/Assign3.exe"  METHOD="GET">'); 
send('<INPUT  TYPE="hidden"  Name="Sess"  Value="'  +dSession+  '">'); 


{The  rest  of  the  items  are  Paper_Numbers} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 

for  i:=  1  to  TitleList. count- 1  do  begin 

{Get  the  next  title  number} 

dTitlein:=  TitleList[i]; 
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{Convert  the  Title  string  to  an  integer  value} 

dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname('Paper_Number').asinteger  o  dTitle  do 
next; 

{Insert  the  Session} 

edit; 

Setfields  ([nil,  nil,  nil,  nil,  nil,  dSession]);  {The  remaining  fields  are  ignored} 

post; 

{Convert  counting  variable  "i"  into  string  to  send  to  HTML  page} 

dnum:=  inttostr(i); 

{Send  title  name} 

send('<INPUT  TYPE="text"  Name="'  +fieldbyname(Paper_Number').asstring+ 
SIZE="2"  VALUE='"  +dnum+  '">  '); 

send("  +fieidbyname(Titie').asstring+  '<BR>'); 

end;  {for} 

close;  { the  table} 

end;  {with  Articles} 


send('<PxCENTERxINPUT  TYPE="submit"  Value="Assign  the  Articles  in  this 
Order"x/CENTERx/FORMxP>  '); 

{Send  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adrainpwd.exe"  METHOD="POST">*); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value- 'Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 

end.    {Application} 


380 


Confirmation:  Assign3.exe 

unit  Assign_3; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TFonn) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

Articles:  TTable; 

procedure  FormCreate(  Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

i,  j,  dTitle:  integer; 

dsession :  string; 
dTitlein,  dTitlestr:  string; 
dString,  AssignString:  string; 
dnum:  string; 

Titlelist :  TStringList; 

function  TitleToInt  (  S:  string)  :integer; 
implementation 
{$R  *.DFM} 

function  TitleToInt  (  S:  string) : integer; 
{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
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it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 

var 

temp:  string;      {temporary  variable  to  build  new  string  into} 

j:  integer;        {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

{set  the  counter  to  zero} 

j:=0; 

{count  the  characters} 

repeat 
j:=j+l; 

until  S[j+1]  =  "; 

{Copy  the  valid  number  characters  over  to  temp} 

temp  :=  Copy(S,  1J); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 

end;  {TitleToInt} 

I***************************************) 

procedure  TForml.formcreate(Sender:  TObject); 
begin 

with  CGEEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  (,<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>*); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

{Get  query  string  from  Assign.exe} 

Titlelist:=  TStringlist.create;     {list  of  titles  to  assign  to  the  session} 
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AssignString:=  CGIQueryString^ 

dString— '       ';      {Initialize  as  Blank } 

j:=  1 ;      {The  counter  for  the  individual  strings  within  the  QueryString} 

for  i  :=  6  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString 
eight  is  the  first  valuable  character  (the  beginning  of  the  Session  Neumonic) } 

if  (AssignString[i]  o  '&')  and  (AssignStringfi]  o '-)  then  begin     {the  character  is 
valuable} 

dString[j]  :=  AssignString[i]; 

j-j+i; 

end  {if  AssignStringfi]  o  '&'  then} 
else  begin    {The  &  signifies  the  end  of  the  string} 
TitleListadd  (dString); 

dString:= '       ';      {Blank  out  the  old  values} 
j  := 1 ;  {reset  the  string  counter} 

end;  {else} 

TitleListadd  (dString);     {This  is  to  put  the  last  string  into  the  string  list  It  is 
necessary  because  there  is  no  &  at  the  end} 


{Place  the  Session  Neumonic  into  each  PaperNumber  passed} 

{Note:  The  string  list  consists  of  the  following  components  - 

[0]  session  # 

[1]  first  paper-number 

[2]  first  paper  OrderlnSession 

[3]  second  paper-number 

[4]  second  paper  OrderlnSession 

•  • 

This  is  important  to  understand  when  interpreting  the  "for"  loop!} 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic} 

dSession:=  TitleListfO]; 

{Send  confirmation} 

send  ('<P>The  following  Articles  have  been  placed  in  Session  <B>'  +dSession+  '</B>  in  the 
order  indicated.  The  Session '); 

send  ('and  the  Orders  may  be  changed  at  any  time  by  repeating  the  process  of  Assigning  an 
Article  to  a  Session.<P>'); 
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send  ('<pre>Order         Title<prexBR>'); 

{The  rest  of  the  items  are  (PaperN  umber  and  OrderlnSession)  pairs} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 

for  i:=  1  to  TitleList.count-1  do  begin 

{Get  the  next  PaperNumber} 

dTitlein:=  TitleList[i]; 

{Convert  the  PaperNumber  string  to  an  integer  value} 

dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname(Paper_Number,).asinteger  o  dTitle  do 
next; 


{********  Increment  "i"  to  get  to  the  OrderlnSession  number  *********} 
i:=i+l; 

{Insert  the  Session} 

edit; 

Setfields  ([nil,  nil,  nil,  nil,  nil,  dSession,  TitleListfi]]);  {The  remaining  fields  are 
ignored} 

post; 

{Send  title  name} 

send("  +TitleList[i]+  '  '  +fieldbyname(,Titler).asstring+  '<BR>'); 

end;  {for} 

close;  { the  table} 

end;  {with  Articles} 

send(*<PxFORM  ACTION="../cgi-win/Assign.exe"  METHOD=TOSTM>'); 
sendC<INPUT  TYPE="hidden"  Name="flag"  Value="l">,); 
send^PxCENTERxINPUT  TYPE="submit"  Value=" Assign  more 
Articlesnx/CENTERx/FORMxP>  *); 

send('<PxFORM  ACT10N=^./cgi-win/Times.exe,,  METHOD=NPOST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l  ">•); 
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send(*<PxCENTERxINPUT  TYPE="submit"  Value="Assign  Presentation  Times  to 
ArticIes"x/CENTERx/FORMxP>  '); 

{Send  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hiddenM  Name="flag"  Value="  r>'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;  {FormCreate} 

end.  {Application} 


385 


Choose  Session:  Timel.exe 

unitTimel; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGEnvData; 

CGIDB1:TCGIDB; 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

Query  1:  TQuery; 

procedure  FormCreate(Sender:  TObject); 

procedure  CGIDB  lSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

{Standard  Header} 
webSiteINIFilename:=paramstr(  1 ); 
applicatiorLonException:=cgiErrorHandler; 
application.processMessages; 

createStdout; 
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sendPrologue; 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfield  ('flag'); 

if  (dflag  =  T)  then  begin    {flag  is  set} 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 


{send  instruction;} 

send('<center>These  are  the  current  Session  Neumonics.<br>'); 

send(To  enter  Presentation  Times  for  Articles  within  a  Session,  simply  click  on  the  Session 
Neumonic.<BR>'); 


{Retrieve  current  Session  Information} 

with  Query  1  do  begin 

close; 
sql.  clear; 

sql.add('Select*FROM  Session *); 
open; 

if  recordcount  >  0  then  begin 
Sessions.Open; 
CGIDBl.DrawTable; 
send('</center>'); 
Sessions.  Close; 
end  {if  recordcount  >  0} 

else 

sendhdr  ('2','There  are  no  Sessions  in  the  Database!'); 

end;  {with  Queryl } 


{Standard  Footer} 

sendhr; 
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send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value- 'Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'^'); 

send  CRetum  to  the  <A  HREF="http://13 1. 120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 


end;     {FormCreate} 

procedure  TForml.CGIDBlSendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

| Hotlink  for  single  session  edit} 

s:-<AHREF="../cgi-win/Times2.exe?'+  currentrecord.fieldbyName(,Number,).AsString  +  '">' 
+  currentrecord.FieldbyNameCNeumonicO.AsString  +  '</A>'; 

end; 
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end. 
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Assign  Times:  Times2.exe 

unit  Times_2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Sessions:  TTable; 

CGEnvDatal:  TCGEnvData; 

CGIDB1:TCGIDB; 

Articles:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

ArticlesInSessionList:  TStringList; 
OrderlnSessionList:  TStringList; 
ArticlesInOrderList:  TStringList; 

nextsession:  string; 

SessionNumber, 

Session, 

dTitle, 

dbPaperNumber, 

dbtitle, 

dbOrderlnSession, 

dbPresentationTime:  string; 

ij,  K 
order, 
dTitleint :  integer; 

implementation 
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{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 

begin 
with  CGEEnvDatal  do  begin 

webSiteIMFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{Standard  Header} 

send  (^HTMLxHEAD^); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>"); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 


{Find  Session  to  edit} 

{ Get  field  from  search  page } 

SessionNumber:=  cgiQueryStringA; 

{Find  Number  in  SESSIONS  Table} 

with  Sessions  do  begin 

{Prepare  the  table} 

open; 
first; 

{find  the  correct  Session} 

while  SessionNumber  o  fieldbynameCNumber').asstring  do 
next; 


Session:=  fieldbyname(rNeumonic').asstring; 

send('Here  are  the  Articles  in  Session  <B>'  +Session+  '</B>  for  which  you  wanted  to  Assign 
Presentation  Times. '); 

send(Till  in  the  Times  and  "Submit"  them.<BR>'); 
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send('<P><FORM  ACTI0N="../cgi-win/Times3.exe"  METHOD="GET">'); 
send(*<INPUT  TYPE="hidden"  Name="Sess"  Value=*"  +Session+  '">'); 


end;    {with  Sessions} 


(Find  the  Articles  in  this  session} 

{Create  the  stringlists} 

ArticlesInSessionList:=  TStringlist.  create; 
OrderInSessionList:=  TStringlist.  create; 
ArticlesInOrderList— TStringlist.create; 


{Clear  the  stringlists} 

ArticlesInSessionList.  clear; 
OrderlnSessionList.  clear; 
ArticlesInOrderList.clear; 


{Get  the  Article  Record  } 

with  Articles  do  begin 

{Prepare  Article  Table} 

Articles,  open; 

Articles. first;         {Start  at  the  beginning  of  the  ARTICLE  Table} 


{Check  every  article  against  the  session  neumonic.  Matches  go  on  InSession  stringlist} 

while  not  Articles.EOF  do  begin 

if  Articles.fieldByName  ('Session'). asstring  =  Session  then  begin 

{Put  the  pa  pern  umber  on  a  list  and  the  OrderlnSession  on  another  -  they 
must  be  symetrical} 

ArticlesInSessionList.  add  (fieldbyname(PaperNumber').  asstring); 
OrderInSessionList.add(fieldbyname('OrderInSession').asstring); 
end;  {if  then} 

Articles.next; 

end;  {while  not  articles  EOF} 
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end;  {with  Articles} 

if  ArticlesInSessionList. count  >  0  then  begin 
{Put  Articles  in  order  in  the  InOrder  stringlist} 

{First  initialize  the  list  by  placing  a  dummy  value  in  the  string  for  each  value  that 
will  be  added} 

for  j:-  0  to  ArticlesInSessionList. count  do  {the  [0]  place  will  not  be  used  but  must  be 
included  to  get  the  order  numbers  to  start  at  [1]} 

ArticlesInOrderList.add  ('an  empty  field  to  hold  the  place'); 

{Now  go  through  the  list  of  articles  and  put  them  in  the  "ArticleslnOrderList"  in 
order  (as  saved  in  the  "OrderlnSessionList)} 

for  j:=  0  to  ArticlesInSessionList.  count- 1  do  begin 

{get  the  OrderlnSessionList  value  and  make  it  an  integer} 

Order:=strtoint(OrderInSessionList[j]); 

{assign  the  article  title  to  the  InOrderList  in  its  place} 

ArticlesInOrderListfOrder]  :=  ArticlesInSessionListfj]; 
end; 

{Go  through  the  Articles  in  OrderList  and  retrieve  information  and  print  it  out} 

forj:=  1  to  ArticlesInOrderList.count-1  do  begin 

{  Move  to  proper  record  in  ARTICLE  Table} 

Articles.open; 
Articles,  first; 

dTitle:=  ArticlesInOrderList(j]; 

{make  ArticlesInOrderList[j]  an  integer  for  comparison!} 

dTitleint:=  strtoint(dTitle); 

while  Articles. fieldbyName('Paper_Numbef).asinteger  o  dTitleint  do 
Articles,  next; 


{ Retrieve  record } 

with  Articles  do  begin 

dbPaper_Number:=  fieldByName  CPaper_Number').asstring; 

dbtitle:=  fieldByName  ('title').asstring; 

dbOrderinSession:=  fieldByName  ('OrderlnSession').asstring; 

dbPresentationTime:=  fieldByName  ('PresentationTime').asstring; 
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{Send  Session  edit  FORM  to  HTML  page} 

send("  +  dbOrderlnSession+  '    '); 

sendC<INPUT  TYPE="text"  Name='"  +dbPaper_Number+  '"  SIZE="10"  Value=r 
+dbPresentationTime+  '">'); 
send(' '  +dbtitle+  '<BR>'); 


end;  {with  Articles} 

end;  {for  i=  1  to  articleinOrderList} 

sendC^PxCENTERxINPUT  TYPE="submit"  Value="Submit  Presentation  Times">'); 
send('<rNPUT  TYPE="reset"  VALUE="Reset  to  Original 
Session"x/CENTERx/FORM>'); 

end;  {if  count  >  0} 


{Standard  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD^'POSTV); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send('<PxCENTERxINPUT  TYPE=,,submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>*); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

end. 


394 


Confirmation:  Times3.exe 

unit  Times_3; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

i,j,  dTitle:  integer; 

dsession :  string; 
dTitlein,  dTitlestr:  string; 
dString,  AssignString:  string; 
dnum:  string; 

Titlelist :  TStringList; 

function  TitleToInt  (  S:  string) :  integer; 

implementation 

{$R  *.DFM) 

function  TitleToInt  (  S:  string) :  integer; 

{This  function  is  necessary  because  the  string  value  of  dTitle  has  several  spaces  in 
it  and  the  strtoint  function  cannot  handle  the  conversion  properly} 
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var 

temp:  string;      {temporary  variable  to  build  new  string  into} 

j:  integer;        {Counting  Variable  to  keep  track  of  how  many  characters  are  in  the 
number} 

begin 

{set  the  counter  to  zero} 

j:=0; 

{count  the  characters} 

repeat 

j-j+1; 
until  SD+1]  =  "; 

{Copy  the  valid  number  characters  over  to  temp} 

temp:=Copy(S,  1J); 

{Convert  the  temp  string  to  an  integer  value} 

TitleToInt  :=  strtoint  (temp); 

end;  {TitleToInt} 

I  ********************************** *****! 

procedure  TForml.formcreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename::=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 

{Get  query  string  from  Time2.exe} 

Titlelist:=  TStringlist.create;     {list  of  titles  to  assign  to  the  session} 

AssignString—  CGIQueryStringA; 
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dString— '       ';      {Initialize  as  Blank } 

j:=  1 ;      {The  counter  for  the  individual  strings  within  the  QueryString} 

for  i  :=  6  to  Length(AssignString)  do  {The  counter  for  going  through  the  AssignString 
eight  is  the  first  valuable  character  (the  beginning  of  the  Presentation  Time) } 

if  (AssignString[i]  o  '&')  and  (AssignStringfi]  o '-)  then  begin     {the  character  is 
valuable} 

dStringU]  :=  AssignStringfi]; 

end  {if  AssignStringfi]  o  '&'  then} 
else  begin    {The  &  signifies  the  end  of  the  string} 
TitleList.add  (dString); 

dString:= '       ';      {Blank  out  the  old  values} 
j  := 1 ;  { reset  the  string  counter} 

end;  {else} 

TitleList.add  (dString);     {This  is  to  put  the  last  string  into  the  string  list  It  is 
necessary  because  there  is  no  &  at  the  end} 


{Place  the  Presentation  Time  into  each  PaperNumber  passed} 

{Note:  The  string  list  consists  of  the  following  components  - 

[0]  session  # 

[1]  first  paper-number 

[2]  first  paper  Presentation  Time 

[3]  second  paper-number 

[4]  second  paper  Presentation  Time 

•  • 

This  is  important  to  understand  when  interpreting  the  "for"  loop!} 

{The  first  item  in  the  Title  List  is  the  Session  Neumonic} 

dSession:=  TitleListfO]; 

{Send  confirmation} 

send  ('<P>The  following  Articles  have  been  placed  in  Session  <B>'  +dSession+  '</B>  in  the 
order  indicated.  The  Session '); 

send  ('and  the  Orders  in  the  Session  may  be  changed  at  any  time  by  repeating  the  process  of 

*); 

send  C<A  HREF="../cgi-win/Assign.exe">Assigning  an  Article  to  a 
Session</A>.  <P><pre>Order         Title<prexBR>'); 
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{The  rest  of  the  items  are  (Paper  Number  and  Presentation  Time)  pairs} 

with  Articles  do  begin 

open;    {Prepare  the  Table  for  use} 

for  i:=  1  to  TitleList.  count- 1  do  begin 

{Get  the  next  Paper_Number} 

dTitlein:=  TitleList[i]; 

{Convert  the  Paper  Number  string  to  an  integer  value} 

dTitle:=  TitleToInt  (dTitlein); 

{Move  to  proper  record} 

first;     {go  back  to  the  first  record  before  every  new  search} 
while  fieldbyname('Paper_Number').asinteger  o  dTitle  do 
next; 


{********  Increment  "i"  to  get  to  the  Presentation  Time  *********} 

{This  causes  the  "for"  loop  to  skip  every  other  element} 

i:=i+l; 

{Insert  the  Session} 
edit; 

Setfields  ([nil,  nil,  nil,  nil,  nil,  nil,  nil,  TitleList[i]]);  {The  remaining  fields  are 
ignored} 

post; 

{Send  title  name} 

send("  +TitleList[i]+  '  *  +fieldbyname(Title,).asstring+  '<BR>'); 

end;  {for} 

close;  { the  table} 

end;  {with  Articles} 

send('<PxFORM  ACTION="../cgi-win/Times.exe"  METHOD^TOST'V); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Assign  more  Presentation 
Times,,x/CENTER></FORM><P>  *); 

{Send  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST,,>'); 
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send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">r); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>*); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 


end. 
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Selection  options:  PassWds.exe 

unit  Passwds; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

CGIEnvDatal:  TCGIEnvData; 

CGK)B1:TCGIDB; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 
dUserlD:  string; 
dpwd:  string; 
dbpassword:  string; 
dflag:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 

begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 


400 


send  ('<HTML><HEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


{Determine  whether  flag  is  valid} 

dflag:=  getsmallfleld  ('flag1); 

if  (dflag  =  T)  then  begin     {flag  is  set} 

send('<center><H2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

{Send  Instructions} 

sendhdrC3',  'System  Admin  user  passwords. '); 

send(To  change  a  System  Admin  password,  enter  the  information  below  and  "Modify  a 
System  Admin  User  Password." '); 

send('  The  new  password  must  be  entered  twice  to  ensure  validity.  To  ADD  or  DELETE  a 
User,  select  the  appropriate '); 

sendCButtons  below.'); 

send('<P><CENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/P  wdmod.exe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="  1  ">'); 

send('<B>User  name:         </BxINPUT  NAME="userid"  Size="20"  TYPE="text"xBR>'); 

send(*<B>01d  Password:       </BxINPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password:       </BxINPUT  NAME="newpwdl "  Size="20" 
TYPE="password"xBR>*); 

send('<B>New  Password  Again:</B><INPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 

send('<INPUTNAME="action"  TYPE="hidden"  Value="admin">'); 

send('<P><INPUT  TYPE-'submit"  Value="Modify  System  Admin  User  Password">'); 

send(*<INPUT  TYPE="reset"  Value="Clear  Values"x/FORMxBR>'); 

send(*<PxFORM  ACTION="../cgi-win/PwdAdd.exe"  METHOD="POST">'); 
send(*<INPUT  NAME="flag"  Size="3"  TYPE="hidden"  Value="l">'); 
send('<INPUT  NAME="action"  TYPE="hidden"  Value="admin">'); 
send('<PxINPUT  TYPE="submit"  Value="Add  a  new  System  Admin  User"x/FORM>'); 

send('<PxFORM  ACTION="../cgi-win/PwdDel.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  Size="3"  TYPE="hidden"  Value="l">'); 
send('<INPUT  NAME="action"  TYPE="hidden"  Value="admin">'); 
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send('<PxINPUT  TYPE="submit"  Value="  Delete  a  System  Admin  User 
"x/CENTERx/FORMxBR>'); 

sendhr; 

sendhdr03',  'Reviewer  passwords.'); 

send('To  change  a  reviewer  password,  enter  the  information  below  and  "Modify  a  Reviewer 
Password." '); 

send('  The  new  password  must  be  entered  twice  to  ensure  validity.  To  ADD  or  DELETE  a 
Reviewer,  select  the '); 

sendCappropriate  Buttons  below.'); 


send('<PxCENTERxFORM  ACTION="../cgi-win/Pwdmod.exe"  METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>Reviewer  name:     </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>01d  Password:      </BxINPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password:      </BxINPUT  NAME="newpwdl "  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password  Again:</BxINPUT  NAME="newpwd2"  Size- '20" 
TYPE="password"xBR>'); 

send('<INPUTNAME="action"  TYPE="hidden"  Value="reviewer">'); 

send('<PxINPUT  TYPE- 'submit"  Value="Modify  Reviewer  Password">*); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/FORMxBR>'); 

send('<PxFORM  ACTION="../cgi-win/PwdAdd.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">*); 
sen(K,<INPUTNAME=Mactionw  TYPE="hidden"  Value="reviewer">'); 
send('<PxlNPUT  TYPE="submit"  Value="Add  a  new  Reviewer"x/FORM>'); 

send(*<PxFORM  ACTION="../cgi-win/PwdDel.exe"  METHOD="POST">'); 
send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 
send('<INPUTNAME="action"  TYPE="hidden"  Value="reviewer">'); 
send('<PxINPUT  TYPE="submit"  Value="Delete  a  Reviewer" 
Size="30"x7FORMx/CENTERxp>'); 

{Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

senaX*<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end  {flag  is  set} 
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else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strong></H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;     {FormCreate} 

end. 


403 


Modify  Password:  PwdMod.exe 

unit  Pwdmod; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

Admin:  TTable; 

Reviewer:  TTable; 

DataSourcel:  TDataSource; 

CGIEnvDatal:  TCGIEnvData; 

CGIDBI:TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForm  1  FormCreate(Sender:  TObject); 
var 

dflag:  string; 

duserid:  string;      {ID  for  either  the  Admin  user  or  the  reviewer} 

doldpwd.  string; 

dnewpwdl,  dnewpwd2:  string; 

daction:  string; 

begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{Standard  Header} 

send  (^HTMLxHEAD^); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>"); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>'); 

sendhr; 


{ Get  field  from  search  page } 

dflag:=  getsmallfield  ('flag'); 

duserid:=  getsmallfield  ('userid');     { gets  the  ID  for  either  the  Admin  user  or  the 
reviewer} 

doldpwd:=  getsmallfield  ('oldpwd'); 
dnewpwdl  :=  getsmallfield  ('newpwdl'); 
dnewpwd2:=  getsmallfield  ('newpwd2'); 
daction:=  getsmallfield  ('action'); 

{check  flag} 

if  dflag  =  T  then  begin 

if  dnewpwdl  =  dnewpwd2  then  begin 
{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 

if  daction  =  'admin'  then  begin 
with  Admin  do  begin 
{Update  record  } 

{Move  to  record} 

open; 
first; 

while  (fieldbyname(TJserlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  (fieldbynameCUserlD^.asstring  =  duserid)  then  begin 
edit; 

setfields([nil,  nil,  dnewpwdl]); 
post; 
close; 
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sendhdrC3',  'The  System  Admin  Password  has  been  changed!'); 
end 

else  begin 

send('<P>User  not  found,  please  try  again.'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>User  name:         </B><INPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>01d  Password:      </B><INPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password:      </BxINPUT  NAME="newpwd  1 "  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password  Again:</BxINPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value="admin">'); 

send('<PxINPUT  TYPE="submit"  Value="Modify  System  Admin  User  Password">'); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/FORM>'); 

end; 

end;      {with  admin} 
end  {if  daction  =  admin} 

else  if  daction  =  'reviewer'  then  begin 

with  Reviewer  do  begin 
{Update  record  } 

{Move  to  record} 

open; 
first; 

while  (fieldbyname('ReviewerlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  (fieldbyname('ReviewerlD').asstring  =  duserid)  then  begin 
edit; 

setfields([nil,  nil,  dnewpwdl]); 
post; 
close; 

sendhdr('3',  'The  Reviewer  Password  has  been  changed!'); 
end 
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else  begin 

send('<P>Reviewer  not  found,  please  try  again.'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">*); 

send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>Reviewer  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE^'texfxBR^); 

send('<B>01d  Password:      </BxINPUT  NAME="oldpwd"  Size="20" 
TYPE^'password^^R^); 

send('<B>New  Password:      </BxINPUT  NAME="newpwdl "  Size="20" 
TYPE=,,password"xBR>'); 

send('<B>New  Password  Again:  </BxENPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value="reviewer">'); 

send('<PxINPUT  TYPE="submit"  Value="Modify  Reviewer  Password">'); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/FORM>'); 

end; 
end;      {with  reviewer} 

end;  {if  (taction  =  reviewer} 

send(*<PxFORM  ACTION="../cgi-win/Passwds.exe"  METHOEHTOSTV); 
send(*<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Modify  more 
Passwords"x/CENTERx/FORM>'); 

end  {new  passwords  matched} 

else  begin 

{new  passwords  don't  match} 

send('<P>The  new  passwords  did  not  match,  please  try  again.'); 

send(*<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwdmod.exe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>User  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>01d  Password:      </BxINPUT  NAME="oldpwd"  Size="20" 
TYPE="password"><BR>'); 

send('<B>New  Password:      </BxINPUT  NAME="newpwdl "  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password  Again :</B><INPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 
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send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+  "*>'); 

if  daction  =  'admin'  then  send('<PxINPUT  TYPE="submit"  Value="Modify  System 
Admin  Password">') 

else  send('<PxINPUT  TYPE="submit"  Value-'Modify Reviewer Password">'); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORMxBR>'); 
end;  {if  then  else} 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwdexe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'V); 

send  ("Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {withCGIEnvDatal} 
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end;     {FormCreate} 

end. 
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Add  new  user/reviewer:  PwdAdd.exe 

unit  Pwdadd; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGDSnvDatal:  TCGBEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Admin:  TTable; 

Reviewer:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
var 

dflag:  string; 

daction:  string; 

begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendProIogue; 
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{Standard  Header} 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>'); 

sendhr; 


{ Get  field  from  search  page } 

dflag:=  getsmallfield  ('flag1); 
daction:=  getsmallfield  ('action'); 


{check  flag} 

if  dflag  =  T  then  begin 


{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 

if  daction  =  'admin'  then  begin 


send('<P>To  ADD  a  new  System  Admin  User,  please  enter  the  following.  The  password  is 
entered '); 

sendCtwice  to  ensure  validity'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION^'./cgi-win/PwdAddZexe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">*); 

send(*<B>New  User  name:         </BxlNPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>Password:      </BxINPUT  NAME="newpwd  1 "  Size="20" 
TYPE="password"xBR>'); 

send('<B>Password  Again:</BxINPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+  '">'); 

send(*<PxINPUT  TYPE-'submit"  Value- 'ADD  this  New  System  Admin  User">'); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"></CENTERx/FORMxBR>'); 

end  {if  daction  then} 

else  begin 

send('<P>To  ADD  a  new  Reviewer,  please  enter  the  following.  The  password  is  entered '); 
send('twice  to  ensure  validity'); 
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send('<PxCENTERxALIGN  LEFTxFORM  ACTION=*'../cgi-win/PwdAdd2.exe'' 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>New  Reviewer  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>Password:      </BxINPUT  NAME="newpwd  1 "  Size="20" 
TYPE="password"xBR>'); 

send('<B>Password  Again:</BxINPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 

send('<INPUT  NAME=Maction"  TYPE="hidden"  Value='"  +daction+  "'>'); 

send('<PxINPUT  TYPE="submit"  Value="ADD  this  New  Reviewer'V); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTER></FORMxBR>'); 

end;  {ifdactionthen} 


{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF-' ../prototype/admin20.htm">try  to  login 

again.</A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 


send  ('<PxhrxpxlMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility'V); 

send  ('Return  to  the  <A  HREF="http://131. 120.20.70/Index.html">Asilomar*); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 
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send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGEEnvDatal} 

end;     {FormCreate} 

end. 
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Addition  confirmation:  PwdAdd2.exe 

unit  Pwd_add2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTaWes,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGEEnvData; 

CGIDB1:TCGIDB; 

Admin:  TTable; 

DataSourcel:  TDataSource; 

Reviewer:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dflag:  string; 

duserid:  string;      {ID  for  either  the  Admin  user  or  the  reviewer} 

dnewpwdl,  dnewpwd2:  string; 
daction:  string; 

begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{Standard  Header} 

send  (,<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEAD><BODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>'); 

sendhr: 


{  Get  field  from  search  page  } 

dflag~  getsmallfield  ('flag'); 

duserid:=  getsmallfield  ('userid');     {  gets  the  ID  for  either  the  Admin  user  or  the 
reviewer} 

dnewpwdl  :=  getsmallfield  ('newpwdl'); 
dnewpwd2:=  getsmallfield  ('newpwd2'); 
daction:=  getsmallfield  ('action'); 


{check  flag} 

if  dflag  =  T  then  begin 

if  (dnewpwdl  =  dnewpwd2)  and  (dnewpwdl  o")  then  begin 

{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 

if  daction  =  'admin'  then  begin 

with  Admin  do  begin 

{Append  record  } 

open; 

AppendRecord([nil,  duserid,  dnewpwdl]); 
close; 
end;      {with  admin} 

sendhdrC3',  'The  System  Admin  User  "<B>'  +duserid+  '</B>"  has  been  added!*); 
end  {if  daction  =  admin} 

else  if  daction  =  'reviewer'  then  begin 

with  Reviewer  do  begin 
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{Append  record  } 

open; 

AppendRecord([nil,  duserid,  dnewpwdl]); 

close; 

end;      {with  reviewer} 

sendhdrC3',  'The  Reviewer  M<B>'  +duserid+  '</B>"  has  been  added!'); 
end;  {if  daction  =  reviewer} 


send('<PxFORM  ACTION="../cgi-win/Passwds.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value^TV); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Modify  more 
Passwords"x/CENTER></FORM>'); 


end  {new  passwords  matched} 

else  begin 

{new  passwords  don't  match} 

send('<P>The  new  passwords  did  not  match,  please  try  again.'); 

send('<PxCENTERxALIGN  LEFTXFORM  ACTION=".7cgi-win/Pwdadd2.exe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>User  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>New  Password:      </BxINPUT  NAME="newpwd  1 "  Size="20" 
TYPE="password"xBR>'); 

send('<B>New  Password  Again:</BxINPUT  NAME="newpwd2"  Size="20" 
TYPE="password"xBRx/ALIGN  left>'); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+  '">'); 
if  daction  =  'admin'  then  send(*<P><INPUT  TYPE="submit"  Value="ADD  System  Admin 
User">') 

else  send('<PxlNPUT  TYPE="submit"  Value="ADD  New  Reviewer">'); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORMxBR>'); 

end; 

{Standard  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="  !">'); 
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sendC<PxCENTERxINPUT  TYPE- 'submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>r); 

end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF-' ../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.  <BR>'); 


send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar*); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  (*</BODYx/HTML>*); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;     {FormCreate} 

end. 
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Delete  a  user/reviewer:  PwdDel.exe 

unit  Pwddel; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGEnvData; 

CGIDB  1:TCGIDB; 

DataSource  1 :  TDataSource; 

Admin:  TTable; 

Reviewer:  TTable; 

procedure  FormCreate(Sender  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForm  1  .FormCreate( Sender:  TObject); 
var 

dflag:  string; 

daction:  string; 

begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 
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(Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>'); 

sendhr; 


{ Get  field  from  search  page } 

dflag:=  getsmallfield  ('flag'); 
daction:=  getsmallfield  ('action'); 


{check  flag} 

if  dflag  -  T  then  begin 


{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 

if  daction  =  'admin'  then  begin 


send('<P>To  DELETE  a  System  Admin  User,  please  enter  the  following.'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/PwdDel2.exe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>User  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>Password:      </BxINPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>'); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+  '">'); 

send('<PxlNPUT  TYPE="submit"  Value="Delete  this  System  Admin  User">'); 

send(*<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORMxBR>'); 

end  {if  daction  then} 

else  begin 

send('<P>To  DELETE  a  Reviewer,  please  enter  the  following:'); 

send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/PwdDel2.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>Reviewer  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 
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send('<B>Password:      </BxINPUT  NAME=noldpwd"  Size="20" 
TYPE="password"xBR>'); 

sendC<INPUT  NAME="action"  TYPE="hidden"  Value="'  +daction+  '">'); 
send('<PxINPUT  TYPE="submit"  Value="Delete  this  Reviewer">'); 
send('<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORMxBR>*); 
end;  {ifdactionthen} 

{Standard  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag,,  Value="r>'); 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="Retura  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin     {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2></center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  (*<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is1); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 


send  ('<PxhrxPx;IMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  ('Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;     {FormCreate} 
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end. 
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Deletion  confirmation:  PwdDel2.exe 

unit  Pwd_del2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Admin:  TTable; 

Reviewer:  TTable; 

CGIEnvDatal:  TCGIEnvData; 

CGIDB1:TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

dflag:  string; 

duserid:  string;      {ID  for  either  the  Admin  user  or  the  reviewer} 

doldpwd.  string; 
daction:  string; 

begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{Standard  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>*); 

send  ('<centerxH2>Asilomar  Conference  System  Administration</H2>'); 

sendhr; 


{  Get  Held  from  search  page  } 

dflag:=  getsmallfield  ('flag'); 

duserid:=  getsmallfield  ('userid');     {  gets  the  ID  for  either  the  Admin  user  or  the 
reviewer} 

doldpwd:=  getsmallfield  ('oldpwd'); 
daction:=  getsmallfield  ('action'); 


{check  flag} 

if  dflag  =  T  then  begin 

{If  action  is  admin  then  modify  admin  table,  else  modify  reviewer  Table} 

if  daction  =  'admin'  then  begin 
with  Admin  do  begin 
{Update  record  } 

{Move  to  record} 

open; 
first; 

while  (fieldbyname('UserlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  not  EOF  then  begin 
edit; 
delete; 
close; 

sendhdr('3',  'The  System  Admin  User  "<i>'  +duserid+  '</i>"  has  been  Deleted!'); 
end 
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else  begin 

send('<P>The  User  "<B>'  +duserid+  '</B>"  was  not  found,  please  try  again.'); 

send('<P><CENTER><ALIGN  LEFTxFORM  ACTION="../cgi-win/Pwddel.exe" 
METHOD="POST">'); 

send('<INPUT  NAME="flag"  TYPE="hidden"  Value="l">'); 

send('<B>User  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>*); 

send('<B>01d  Password:      </B><INPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>'); 

send(*<INPUT  NAME="action"  TYPE="hiddenM  Value=m  +daction+  *">'); 

send('<PxINPUT  TYPE="submit"  Value="Delete  this  System  Admin  User">'); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORM>'); 

end;  {else} 

end;      {with  admin} 
end  {if  daction  =  admin} 

else  if  daction  =  'reviewer'  then  begin 

with  Reviewer  do  begin 
{Delete  record } 

{Move  to  record} 

open; 
first; 

while  (fieldbyname('ReviewerlD').asstring  o  duserid)  and  (not  EOF)  do 
next; 

if  not  EOF  then  begin 
edit; 
delete; 
close; 

sendhdr('3',  The  Reviewer  "<i>'  +duserid+  '</i>"  has  been  Deleted!'); 
end 

else  begin 

send('<P>The  Reviewer  "<B>'  +duserid+  '</B>"  was  not  found,  please  try  again.'); 
send('<PxCENTERxALIGN  LEFTxFORM  ACTION="../cgi-win/Pwddel.exe" 
METHOD="POST">'); 

send('<INPUTNAME="flag"  TYPE="hidden"  Value="  1  ">'); 
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send('<B>User  name:         </BxINPUT  NAME="userid"  Size="20" 
TYPE="text"xBR>'); 

send('<B>01d  Password:      </BxINPUT  NAME="oldpwd"  Size="20" 
TYPE="password"xBR>*); 

send('<INPUT  NAME="action"  TYPE="hidden"  Value='"  +daction+  '">'); 

send('<PxINPUT  TYPE="submit"  Value="Delete  this  Reviewer">'); 

send('<INPUT  TYPE="reset"  Value="Clear  Values"x/CENTERx/FORM>'); 

end;  {else} 

end;      {with  reviewer} 
end;  {if  daction  =  reviewer} 


send('<PxFORM  ACTION="../cgi-win/Passwds.exe"  METHOD="POST">*); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Modify  more 
Passwords"x/CENTERx/FORM>'); 

{Standard  Footer} 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE-'submit* '  VaIue="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {flag  is  set} 

else  begin      {flag  **incorrect**} 

send  ('<centerxH2>Asilomar  Conference  on  Signals,  Systems,  &  Computers</H2x/center>'); 

sendhr; 

send  ('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to  login 

again.  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 

send  ('<PxhrxPxIMG  SRC="../prototype/asil2b0.gif "  align=left  alt="Asilomar  facility">'); 

send  (Return  to  the  <A  HREF="http://131.120.20.70/Index.html">Asilomar'); 

send  ('Conference  On-line  Submission  Page</A>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 
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closeApp(  application ); 

end;  {flag  **incorrect**} 

send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 
end;     {with  CGIEnvDatal} 

end;     {FormCreate} 

end. 
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This  single  program:  P_Sess.exe 

unit  Prsess; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Queryl :  TQuery; 

Sessions:  TTable; 

CGEEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

procedure  FormCreate(  Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

send  (*<HTMLxHEAD>'); 
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SendTitle('AsiloiTiar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

end; 

with  cgiEnvDatal  do  begin 

send(*<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('<Pxh3>These  are  the  current  Sessions  Scheduled  in  the 
database:</h3xPxcenter>'); 

With  Sessions  do  begin 

open; 
first; 

While  not  EOF  do  begin 

send  ("  +fieldbyname  ('neumonic').asstring+  '  <BR>'); 

next; 

end;  {while} 

close; 

send  ('</centerxP>'); 

end;  {with  Sessions} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send(*<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTER></FORM>'); 
send  (*</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

end. 
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Select  Article  or  All:  P_Artl.exe 

unit  Prartl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  -  class(TForm) 
CGEnvDatal:  TCGEEnvData; 
CGIDB  1:TCGIDB; 
Query  1:  TQuery; 
DataSourcel:  TDataSource; 
Articles:  TTable; 

Query  lPaperNumber:  TIntegerField; 
Query  1  Title:  TStringField; 
ArticlesPaperNumber:  TIntegerField; 
ArticlesTitle:  TStringField; 
Articleslnvited:  TStringField; 
ArticlesAccepted:  TStringField; 
ArticlesContactAuthorNumber:  TIntegerField; 
ArticlesSession:  TStringField; 
ArticlesKeywordl:  TStringField; 
ArticlesKeyword2:  TStringField; 
ArticlesKeyword3:  TStringField; 
ArticlesAbstract:  TMemoField; 
ArticlesContactOrder:  TStringField; 
ArticlesFName2:  TStringField; 
ArticlesLName2:  TStringField; 
Articleslnitial2:  TStringField; 
ArticlesInstitution2:  TStringField; 
ArticlesOrder2:  TStringField; 
ArticlesFName3:  TStringField; 
ArticlesLName3:  TStringField; 
ArticlesInitiaB:  TStringField; 
ArticlesInstitution3:  TStringField; 
ArticlesOrder3:  TStringField; 
ArticlesFName4:  TStringField; 
ArticlesLName4:  TStringField; 
Articleslnitial4:  TStringField; 
ArticlesInstitution4:  TStringField; 
ArticlesOrder4:  TStringField; 
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ArticlesFName5:  TStringField; 

ArticlesLName5:  TStringField; 

Articleslnitial5:  TStringField; 

ArticlesInstitution5:  TStringField; 

ArticlesOrder5:  TStringField; 

ArticlesFName6:  TStringField; 

ArticlesLName6:  TStringField; 

Articleslnitial6:  TStringField; 

ArticlesInstitution6:  TStringField; 

ArticlesOrder6:  TStringField; 

procedure  FormCreate( Sender:  TObject); 

procedure  CGIDBlSendingHotField(currentRecord:  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

send  (*<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 
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with  Query  1  do  begin 

prepare;      { Optimizes  query  } 

close; 

sql.  clear; 

sql.add('Select  *  FROM  Submissi'); 

sql.add(  'Order  by  Title ' ); 

open; 

{Display  the  results  of  the  Query} 

send('<P>Choose  the  Article  you  would  like  to  see  below.  The  information  will  be 
displayed  to  the  screen '); 

send('in  a  format  that  most  Browsers  will  print  directly.  You  may  also  <A  HREF- '../cgi- 
win/P_artl2.exe">Print '); 

send(*Information  for  ALL  Articles  to  a  File</A>.<PxCENTERxBR>'); 

CGIDB 1  drawtable;    {display  all  titles} 

send  ('</centerxP>'); 
end;  {  with  Query  1} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  Value=,,l,,>,); 
send('<PxCENTERxlNPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  C</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

procedure  TForml. CGIDB  1  SendingHotField(currentRecord:  TDataset; 

var  s:  OpenString); 
begin 

s:-<A  HREF="../cgi-win/P_Artl2.exe?'+ 
currentrecord.fieldbyName(Paper_Number').AsString  +  '">' 

+  currenrrecord.FieldbyName('Title').AsString  +  '</A>'; 

end; 
end. 
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Print  Article:  P_ArtI2.exe 

unit  PrartI2; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
CGBEnvDatal:  TCGIEnvData; 
CGDDB1:TCGIDB; 
Query  1:  TQuery; 
DataSourcel:  TDataSource; 
Articles:  TTable; 
Authors:  TTable; 
AuthorsANumber:  TIntegerField; 
AuthorsFName:  TStringField; 
AuthorsLName:  TStringField; 
Authorslnitial:  TStringField; 
AuthorsHonorific:  TStringField; 
Authorslnstitution:  TStringField; 
AuthorsDepartment:  TStringField; 
AuthorsMailstop:  TStringField; 
AuthorsAddressStreet:  TStringField; 
AuthorsAddressCity:  TStringField; 
AuthorsAddressState:  TStringField; 
AuthorsAddressZip:  TStringField; 
AuthorsCountry:  TStringField; 
AuthorsPhoneLocalNumber:  TStringField; 
AuthorsPhoneAreaCode:  TStringField; 
AuthorsPhoneFaxNumber:  TStringField; 
AuthorsEmail:  TStringField; 
ArticlesPaperNumber:  TIntegerField; 
ArticlesTitle:  TStringField; 
Articleslnvited:  TStringField; 
ArticlesAccepted:  TStringField; 
ArticlesContactAuthorNumber:  TIntegerField; 
ArticlesSession:  TStringField; 
ArticlesKeywordl:  TStringField; 
ArticlesKeyword2:  TStringField; 
ArticlesKeyword3:  TStringField; 
ArticlesAbstract:  TMemoField; 
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ArticlesContactOrder:  TStringField; 

ArticlesFName2:  TStringField; 

ArticlesLName2:  TStringField; 

Articleslnitial2:  TStringField; 

ArticlesInstitution2:  TStringField; 

ArticlesOrder2:  TStringField; 

ArticlesFName3:  TStringField; 

ArticlesLName3:  TStringField; 

Articleslnitial3:  TStringField; 

ArticlesInstitution3:  TStringField; 

ArticlesOrder3:  TStringField; 

ArticlesFName4:  TStringField; 

ArticlesLName4:  TStringField; 

Articleslnitial4:  TStringField; 

ArticlesInstitution4:  TStringField; 

ArticlesOrder4:  TStringField; 

ArticlesFName5:  TStringField; 

ArticlesLName5:  TStringField; 

Articleslnitial5:  TStringField; 

ArticlesInstitution5:  TStringField; 

ArticlesOrder5:  TStringField; 

ArticlesFName6:  TStringField; 

ArticlesLName6:  TStringField; 

Articleslnitial6:  TStringField; 

ArticlesInstitution6:  TStringField; 

ArticlesOrder6:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

theabstract :  TStringList; 
theAuthors :  TStringList; 

i:  integer; 

dbContactOrderlnt:  integer; 
dbOrder2int:  integer; 
dbOrder3int:  integer; 
dbOrder4int:  integer; 
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dbOrder5int:  integer; 
dbOrder6int:  integer; 

dPaperNumber:  string; 

dbtitle:  string; 
dbinvited:  string; 
dbaccepted:  string; 
dbANumber:  string; 
dbSession:  string; 

dbkeywordl:  string; 
dbkeyword2:  string; 
dbkeyword3:  string; 
dbabstract:  string; 
dbcontactOrder:  string; 

dbfhame2:  string; 
dblname2:  string; 
dbinitial2:  string; 
dbinstitution2:  string; 
dborder2:  string; 

dbfname3:  string; 
dblname3:  string; 
dbinitial3:  string; 
dbinstitution3:  string; 
dborder3:  string; 

dbfhame4:  string; 
dblname4:  string; 
dbinitiaW:  string; 
dbinstitution4:  string; 
dborder4:  string; 

dbfhame5:  string; 
dblname5:  string; 
dbinitial5:  string; 
dbinstitution5:  string; 
dborder5:  string; 

dbfhame6:  string; 
dblname6:  string; 
dbinitial6:  string; 
dbinstitution6:  string; 
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dborder6:  string; 

dbFName :  string; 
dbLName  :  string; 
dblnitial:  string; 
dbHonorific :  string; 
dblnstitution :  string; 

implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGEnvDatal  do 
begin 

webSitelNIFilename^aramstrC  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 


{  Get  the  Paper  Number  Selected} 

try 
dPaper_Number:=  CGIQueryString^ 

finally 

{  Send  the  html  page    } 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers  System  Admin:  Print  an  Article'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

end;  {try} 


{Determine  if  one  Article  or  ALL  Articles  were  requested} 

if  dPaperNumber  =  cginotfound  then  begin 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

sendhdr  ('3',  'Print  to  a  file.*); 
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send('Please  enter  the  name  of  the  file  into  which  you  would  like  the  Article  Information 
placed. '); 

send(The  file  extension  is  not  required,  the  file  will  be  given  the  extension  .Art  after  it  is 
created. '); 

send('If  an  existing  file  name  is  used,  the  old  file  extension  will  be  changed  to  old  and  the 
new '); 

send('file"s  extension  will  be  .Art'); 

send(*<PxFORM  ACTION="../cgi-win/P_Artfll.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE="hidden"  Name="Paper_Number"  Value=m  +dPaper_Number+  '">•); 

send('<CENTERxB>File  Name:  </BxINPUT  TYPE="text"  Name="filename"  Size="25" 
Value="Title.Art"xBR>'); 

send('<PxINPUT  TYPE- 'submit"  Value="Print  the  Articles  to  this 
file"x/CENTERx/FORMxBR>'); 

sendhr; 

send('<PxFORM  ACTION=*'../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value=" 1">?); 

send(*<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

end  {Print  ALL  Articles} 

else  begin 

{Print  ONE  Article} 

{  Get  the  Paper  Record  from  the  SUBMISSION  Table } 

with  Articles  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName('Paper_Number').asstring  o  dPaperNumber  do 
next; 

{ Retrieve  record } 

dbtitle:=  fieldByName  ('title').asstring; 
dbinvited:=  fieldByName  ('invited'),  asstring; 
dbaccepted:=  fieldByName  ('accepted').asstring; 
dbANumber:=  fieldByName  ('ContactAuthorNumber').  asstring; 
dbSession:=  fieldByName  ('Session'). asstring; 


dbkeywordl 
dbkeyword2 
dbkeyworcB 


=  fieldByName  ('keyword  1'). asstring; 
=  fieldByName  ('keyword2').asstring; 
=  fieldByName  ('keywordSO.asstring; 
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CGIDBl.memoToStringList  (fieldbyname  ('Abstract'),  theabstract); 

dbcontactOrder:=  fieldByName  ('contactOrder').asstring; 

dborder2:=  fieldByName  ('order2').asstring; 
dbfhame2:=  fieldByName  ('fhame2').asstring; 
dbinitial2:=  fieldByName  ('initial2').asstring; 
dblname2:=  fieldByName  ('lname2').asstring; 
dbinstitution2:=  fieldByName  ('institution2').asstring; 

dborder3:=  fieldByName  ('order3').asstring; 
dbfhame3:=  fieldByName  ('fiiame3').asstring; 
dbinitial3:=  fieldByName  ('imtial3').asstring; 
dblname3:=  fieldByName  ('lname3').asstring; 
dbinstitution3:=  fieldByName  ('institution3').asstring; 

dborder4:=  fieldByName  ('order4').asstring; 
dbfname4:=  fieldByName  ('fhame4').asstring; 
dbinitial4:=  fieldByName  ('initial4').asstring; 
dblname4:=  fieldByName  ('lname4').asstring; 
dbinstitution4:=  fieldByName  ('institution4').asstring; 

dborder5:=  fieldByName  ('order5').asstring; 
dbfhame5:=  fieldByName  ('ftiame5').asstring; 
dbinitial5:=  fieldByName  ('initial5').asstring; 
dblname5:=  fieldByName  ('lname5').asstring; 
dbinstitution5:=  fieldByName  ('institution5').asstrmg; 

dborder6:=  fieldByName  ('order6').asstring; 
dbfhame6:=  fieldByName  ('fhame6').asstring; 
dbinitial6:=  fieldByName  ('initial6').asstring; 
dblname6:=  fieldByName  ('lname6').asstring; 
dbinstitution6:=  fieldByName  ('institution6').asstring; 
end;    {With  Articles} 

{  Get  Author  Name  information  from  the  AUTHOR  Table } 

with  Authors  do  begin 

{  Move  to  proper  record} 

open; 
first; 

while  fieldbyName(  ANumber').asstring  o  dbANumber  do 
next; 
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{  Retrieve  Author  Name  information  } 

dbFName  :=  fieldByName(TName,).AsString; 
dbLName  :=  fieldByNameCLName').AsString; 
dblnitial  ~  fieldByNameCInitial^.AsString; 
dbHonorific  :=  fieldByName('Honorific').AsString; 
dblnstitution  :=  fieldByName(lnstitutiori).AsString; 
close; 
end; 


{Print  Article} 

sendhdr  ('3',  ^PxBRxPxCENTER^  +dbtitle+  '</CENTER>'); 

send('<PxBRxB>Registration  Number:  </B>'  +dPaper_Number+  "); 

send  ('<PxB>Keyword  #1:  </B>'  +dbkeywordl+ "); 

if  (dbKeyword2  o  'None')  then  send  ('<PxB>Keyword  #2:  </B>'  +dbkeyword2+ "); 

if  dbKeyword3  o  'None'  then  send  ('<PxB>Keyword  #3:  </B>'  +dbkeyword3+ "); 

{Determine  Order  of  Authors } 

theAuthors:=  TStringList.create; 

{Send  the  Authors} 

send(,<PxB>Authors:</Bxp>'); 

if  dbContactOrder  = "  then  send("  +dbFName+  ' '  +dblnitial+  ' '  +dbLName+ ', ' 
+dbInstitution+ ") 
else  begin 

{initialize  the  stringlist} 

for  i:=  0  to  6  do 
theAuthors.add(This  string  is  not  used1); 

dbContactOrderInt:=strtoint(dbContactOrder); 

theAuthors[dbContactOrderInt]:=  "+dbFName+  ' '  +dblnitial+  ' '  +dbLName+ ', ' 
+dbInstitution+ "; 

if  dbOrder2  o  "  then  begin 
dbOrder2Int:=  strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:=  "+dbFName2+  ' '  +dblnitial2+  ' '  +dbLName2+  ', ' 
+dbInstitution2+ "; 
end; 

if  db0rder3  o "  then  begin 
dbOrder3Int:=  strtoint(dbOrder3); 
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theAuthors[dbOrder3Int]:=  "+dbFName3+  '  *  +dblnitial3+  ' '  +dbLName3+  *, ' 
+dbInstitution3+ "; 
end; 

if  dbOrder4  o "  then  begin 
db0rder4Int:=  strtoint(dbOrder4); 

theAuthors[dbOrder4Int]:=  "+dbFName4+  ' '  +dblnitial4+  * '  +dbLName4+  ', ' 
+dbInstitution4+ "; 
end; 

if  dbOrder5  o "  then  begin 
db0rder5Int:=  strtoint(dbOrder5); 

theAuthors[dbOrder5Int]:=  "+dbFName5+  ' '  +dblnitial5+  ' '  +dbLName5+ ',  ■ 
+dbInstitution5+ "; 
end; 

if  dbOrder6  o "  then  begin 
db0rder6Int:=  strtoint(dbOrder6); 

theAuthors[dbOrder6Int]:=  "+dbFName6+ ' "  +dblnitial6+  ' '  +dbLName6+ ', ' 
+dbInstitution6+ "; 
end; 

for  i:=  1  to  6  do 
if  theAuthors[i]  o  'This  string  is  not  used'  then  send("  +theAuthors[i]+  '<BR>'); 

end;  {else} 

{Send  the  Abstract} 

send  ('<PxBRxB>Abstract:     </Bxbr>'); 
for  i  :=  0  to  theabstract.  count  - 1  do 
send(  theabstract. stringsfi] ); 

theabstract. free;  {release  the  memory  held  by  'theabstract'} 

end;  {IF  One  Article} 


send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application  );  {  don't  leave  form  around } 

end;     {with  CGIEnvDatal} 

end;    {with  FormCreate} 
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end. 
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Print  Articles  to  file:  P_Artfil.exe 

unit  Prartfil; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
Articles:  TTable; 
CGIEnvDatal:  TCGIEnvData; 
CGIDB  1:TCGIDB; 
ArticlesPaperNumber:  TIntegerField; 
ArticlesTitle:  TStringField; 
Articleslnvited:  TStringField; 
ArticlesAccepted:  TStringField; 
ArticlesContactAuthorNumber:  TIntegerField; 
ArticlesSession:  TStringField; 
ArticlesKeywordl:  TStringField; 
ArticlesKeyword2:  TStringField; 
ArticlesKeyword3:  TStringField; 
ArticlesAbstract:  TMemoField; 
ArticlesContactOrder:  TStringField; 
ArticlesFName2:  TStringField; 
ArticlesLName2:  TStringField; 
Articleslnitial2:  TStringField; 
ArticlesInstitution2:  TStringField; 
ArticlesOrder2:  TStringField; 
ArticlesFName3:  TStringField; 
ArticlesLName3:  TStringField; 
ArticlesInitiaB:  TStringField; 
ArticlesInstitution3:  TStringField; 
ArticlesOrder3:  TStringField; 
ArticlesFName4:  TStringField; 
ArticlesLName4:  TStringField; 
Articleslnitial4:  TStringField; 
ArticlesInstitution4:  TStringField; 
ArticlesOrder4:  TStringField; 
ArticlesFName5:  TStringField; 
ArticlesLName5:  TStringField; 
Articleslnitial5:  TStringField; 
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ArticlesInstitution5:  TStringField; 

ArticlesOrder5:  TStringField; 

ArticlesFName6:  TStringField; 

ArticlesLName6:  TStringField; 

Articleslnitial6:  TStringField; 

ArticlesInstitution6:  TStringField; 

ArticlesOrder6:  TStringField; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

MyFileHandle:  THandle; 
F:  Textfile; 

theabstract :  TStringList; 
theAuthors :  TStringList; 

i:  integer; 

dbContactOrderlnt:  integer; 
dbOrder2int:  integer; 
dbOrder3int:  integer; 
dbOrder4int:  integer; 
dbOrder5int:  integer; 
dbOrder6int:  integer; 

dFileName,  dFileNamein,  dflag:  string; 
PathFile,  OldFile:  string; 

dbPaperNumber:  string; 
dbtitle:  string; 
dbinvited:  string; 
dbaccepted:  string; 
dbANumber:  string; 
dbSession:  string; 

dbkeywordl:  string; 
dbkeyword2:  string; 
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dbkeyworcB:  string; 
dbabstract:  string; 
dbcontactOrder:  string; 

dbfhame2:  string; 
dblname2:  string; 
dbinitial2:  string; 
dbinstitution2:  string; 
dborder2:  string; 

dbfname3:  string; 
dblname3:  string; 
dbinitial3:  string; 
dbinstitution3:  string; 
dborder3:  string; 

dbfhame4:  string; 
dblname4:  string; 
dbinitial4:  string; 
dbinstitution4:  string; 
dborder4:  string; 

dbfhame5:  string; 
dblname5:  string; 
dbinitial5:  string; 
dbinstitution5:  string; 
dborder5:  string; 

dbfhame6:  string; 
dblname6:  string; 
dbinitial6:  string; 
dbinstitution6:  string; 
dborder6:  string; 

dbFName  :  string; 
dbLName :  string; 
dblnitial:  string; 
dbHonorific :  string; 
dblnstitution :  string; 


implementation 
{$R  *.DFM} 
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procedure  TForml.FormCreate(Sender:  TObject); 
begin 

with  CGDEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException.=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{  Send  the  html  page   } 

send  (*<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers  System  Admin:  Print  an  Article'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 


{ Get  the  FORM  Data} 

dflag:=  getsmallfield  ('flag'); 
dFileNamein™  getsmallfield  ('filename'); 


if  dflag  =  T  then  begin 
{Print  Articles} 

{Prepare  File} 

try 
if  ExtractFileExt(dFileNamein)  =  'Art'  then  dFileName:=  dFileNamein 

else  dFileName:=  ChangeFileExt("+dFileNamein+  ",  '.Art'); 
PathFile:=  'c:\website\htdocs\DownloadV  +dFileName+"; 
if  FileExists(PathFiIe)  then  begin 
{rename  old  file} 

OldFile  :=  ChangeFileExt("+PathFile+  ",  '.OLD'); 
{open  New  file} 
fileopen  (dFileName,  0); 
{send  notice} 

send(There  was  an  existing  file  named  '"  +PathFile+  '"  which  was  renamed  to 
+01dFile+  "'.*); 
end 
else  MyFileHandle  :=  filecreate(PathFile); 
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finally 

(Prepare  File  for  Writing} 

AssignFile  (F,  PathFile); 
Append(F); 

end;  {try} 


{Prepare  Table} 

Articles,  open; 
Articles,  first; 

While  not  Articles.EOF  do  begin 

with  Articles  do  begin 

{ Retrieve  record } 

dbPaper_Number:=  fieldByName  (PaperNumber').asstring; 
dbtitle:=  fieldByName  ('title').asstring; 
dbinvited:=  fieldByName  ('invited'),  asstring; 
dbaccepted:=  fieldByName  ('accepted'),  asstring; 
dbANumber:=  fieldByName  ('ContactAuthorNumber').  asstring; 
dbSession:=  fieldByName  ('Session'). asstring; 


dbkeywordl 
dbkeyword2 
dbkeyword3 


=  fieldByName  ('keyword  1'). asstring; 
=  fieldByName  Ckeyword2').  asstring; 
=  fieldByName  ('keyword3').asstring; 


CGIDBl.memoToStringList  (fieldbyname  ('Abstract'),  theabstract); 

dbcontactOrder:=  fieldByName  ('contactOrder').asstring; 

dborder2:=  fieldByName  ('order2').  asstring; 
dbfhame2:=  fieldByName  ('fhame2'). asstring; 
dbinitial2:=  fieldByName  ('initial2').asstring; 
dblname2:=  fieldByName  ('lname2').asstring; 
dbinstitution2:=  fieldByName  ('institution2').  asstring; 

dborder3:=  fieldByName  ('order3').  asstring; 
dbfhame3:=  fieldByName  ('fhame3').asstring; 
dbinitial3:=  fieldByName  ('initial3').asstring; 
dblname3:=  fieldByName  ('lname3').  asstring; 
dbinstitution3:=  fieldByName  ('institution3').  asstring; 

dborder4:=  fieldByName  ('order4').  asstring; 
dbfname4:=  fieldByName  ('fhame4').  asstring; 
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dbinitial4:=  fieldByName  ('initiaI4').asstring; 
dblname4.=  fieldByName  (,lname4,).asstring; 
dbinstitution4:=  fieldByName  ('institution4').asstring; 

dborder5:=  fieldByName  ('order5').asstring; 
dbfhame5:=  fieldByName  ('fhameS'^asstring; 
dbinitial5~  fieldByName  ('initial5').asstring; 
dblname5:=  fieldByName  ('lname5').asstring; 
dbinstitution5:=  fieldByName  ('institutions'). asstring; 

dborder6:=  fieldByName  ('order6').  asstring; 
dbfhame6:=  fieldByName  ('fhame6').asstring; 
dbinitial6:=  fieldByName  ('initial6').asstring; 
dblname6:=  fieldByName  ('lname6').  asstring; 
dbinstitution6:=  fieldByName  ('institution6').asstring; 
end;    {With  Articles} 

{ Get  Author  Name  information  from  the  AUTHOR  Table } 

with  Authors  do  begin 

{ Move  to  proper  record} 

open; 
first; 

while  fieldbyName('ANumber'). asstring  o  dbANumber  do 
next; 

{ Retrieve  Author  Name  information  } 

dbFName  :=  fieldByName(TName').AsString; 

dbLName  :=  fieldByNameCLName').AsString; 

dblnitial  :=  fieldByName(*Initial').AsString; 

dbHonorific  :=  fieldByName('Honorific').AsString; 

dblnstitution  :=  fieldByName('Institution').AsString; 

close; 

end;  {with  Authors} 


{Print  Article  data  to  file} 


Writeln(F, ' 
Writeln(F, ' 
Writeln(F, ' 

'); 

'+dbtitle+'   '); 

Writeln(F, ' 
Writeln(F, ' 
Writeln(F,  * 
Writeln(F, ' 

'); 
'); 
'); 
'); 
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Writeln(F, '     '); 

Writeln(F, '     '); 

Writeln(F,  'Registration  Number: '  +dbPaper_Number+  "); 

Writeln(F, '     '); 

Writeln(F,  "Keyword  #1:  *  +dbkeywordl+ "); 

Writeln(F, '     '); 

if  dbKeyword2  o  Tsfone'  then  Writeln(F,  "Keyword  #2: '  +dbkeyword2+ "); 

Writeln(F, '     '); 

if  dbKeyword3  o  'None'  then  Writeln(F,  keyword  #3: '  +dbkeyword3+ "); 

Writeln(F, '     '); 

Writeln(F, '     '); 

{Determine  Order  of  Authors  } 

theAuthors:=  TStringList.  create; 

{Send  the  Authors} 

Writeln(F,  'Authors:'); 
Writeln(F,'   *); 

if  dbContactOrder  = "  then  Writeln  (F, "  +dbFName+  ' '  +dblnitial+  ' '  +dbLName+  ', ' 
+dbInstirution+ ") 
else  begin 

{initialize  the  stringlist} 

for  i:=  0  to  6  do 
theAuthors.add('This  string  is  not  used'); 

dbContactOrderInt:=strtoint(dbContactOrder); 

theAuthors[dbContactOrderInt]:=  "+dbFName+  ' '  +dblnitial+ ' '  +dbLName+  ', ' 
+dbInstitution+ "; 

if  dbOrder2  o "  then  begin 
dbOrder2Int:=  strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:=  "+dbFName2+  ' '  +dblnitial2+  ' '  +dbLName2+ ', ' 
+dbInstitution2+ "; 
end; 

if  db0rder3  o "  then  begin 
db0rder3Int:=  strtoint(dbOrder3); 

theAuthors[dbOrder3Int]:=  "+dbFName3+  ' '  +dblnitial3+  '  *  +dbLName3+  ', ' 
+dbInstitution3+  "; 
end; 

if  dbOrder4  o "  then  begin 
dbOrder4Int:=  strtoint(dbOrder4); 
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theAuthors[dbOrder4Int]:=  M+dbFName4+  ' '  +dblnitial4+  '  *  +dbLName4+  ', ' 
+dbInstitution4+ "; 
end; 

if  dbOrder5  o "  then  begin 
dbOrder5Int:=  strtoint(dbOrder5); 

theAuthors[dbOrder5Int]:=  "+dbFName5+ ' '  +dblnitial5+  ' '  +dbLName5+ ', ' 
+dbInstitution5+ "; 
end; 

if  dbOrder6  o  "  then  begin 
dbOrder6Int:=  strtoint(dbOrder6); 

theAuthors[dbOrder6Int]:=  "+dbFName6+ '  *  +dblnitial6+ ' '  +dbLName6+ ',  * 
+dbInstitution6+ "; 
end; 

for  i:=  1  to  6  do 
if  theAuthorsfi]  o  This  string  is  not  used*  then  Writeln(F, "  +theAuthors[i]+  *<BR>'); 

end;  {else} 

{Send  the  Abstract} 

Writeln(F, '     '); 
Writeln(F, '     '); 
Writeln(F,  'Abstract: '); 
Writeln(F, '  '); 

for  i  :=  0  to  theabstract. count  - 1  do 
Writeln(F, "  +theabstract.strings[i]+ "); 

theabstract. free;  {release  the  memory  held  by  'theabstract1} 

{Fill  out  the  rest  of  the  page} 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,*  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,*  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

WritelnCF,'  '); 
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Writeln(F, 
WriteIn(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, 
Writeln(F, '  —  '); 


Articles,  next; 
end;  {while} 

closeFile(F); 


end  {If  flag} 

else  begin  {bad  flag} 

send('<centerxHi>Asilomar  Conference  on  Signals,  Systems,  & 
Computers</H  1  x/center>'); 

sendhr; 

send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to 
login  again. </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 

end;  {ifdflagelse} 


sendhdr('3','The  file  has  been  generated!'); 

send(*The  file  <B>"'  +dFileName+  *"</B>  is  ready  to  be  Downloaded.'); 
send('You  may  <A  HREF=".. /download/'  +dFileName+  '">Download  the  file  by  FTP 
now!</AxBR>'); 
sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 
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send('<PxCENTERxINPUT  TYPE="submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  (,<^BODYx/HTML>,); 

closeStdout; 

closeApp(  application );  {  don't  leave  form  around  } 

end;     (with  CGIEnvDatal} 

end;    {with  FormCreate} 


end. 
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Instructions  /  Options:  P_Accept.exe 

unit  Praccept; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

dflag:  string; 
daction:  string; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{  Get  fields  from  search  page  } 
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dflag:=  getsmallfield  ('flag'); 
daction:=  getsmallfield  ('action'); 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<A  NAME=#top"xcenterxH2>Asilomar  Conference  System 
Administration</H2x/centerx/A>*); 
sendhr; 

send('<P>After  review,  Articles  will  have  been  accepted  or  rejected.  This  information  is 
entered '); 

send('into  the  database  in  the  "Database  Functions"  portion  of  the  System  Admin  Options 
Page.  '); 

send('If  this  information  has  not  yet  been  entered,  please  go  to  the  <A 
HREF="#bottom">Bottom  of  this  Page</A> '); 

send('for  a  link  to  the  System  Admin  Options  Page.'); 

send('<P>There  are  three  options  in  printing  out  an  Article's  accept/reject  letter:'); 

send('<PxA  HREF- '#one  to  screen">Print  a  letter  for  ONE  specific  Article  to  the 
SCREEN.</AxBR>'); 

send('<PxA  HREF="#one  to  file">Print  a  letter  for  ONE  specific  Article  to  a 
FILE.</AxBR>'); 

send('<PxA  HREF="#all  to  file">Print  a  letter  for  EVERY  Article  to  a 
FILE.</AxPxBRxP>'); 


{print  to  screen  option} 
send  C<A  NAME="one  to  screen"xHRx/AxP>*); 
sendhdr  ('3',  *Printing  a  letter  for  ONE  specific  Article  to  the  screen'); 
send  ('Selecting  this  option  will  display  the  letter  as  an  HTML  page  that  can  be '); 
send  ('printed  directly  from  most  Browsers.<BR>'); 

send('<PxFORM  ACTION="../cgi-win/P_accep2.exe"  METHOD="POST">'); 
send(*<INPUT  TYPE="hidden"  Name=,,flag"  Value="l">'); 
send('<PxBRxCENTERxINPUT  TYPE="submit"  Value="Print  ONE 
Article"x/CENTERx/FORM>'); 

send('<PxBRxA  HREF=#top">Go  back  to  the  top  of  the  page  for  more 
options</AxPxBR>'); 

{print  to  file  option} 

send  C<A  NAME="one  to  file"xHRx/AxP>'); 

sendhdr  ('3',  'Printing  a  letter  for  ONE  specific  Article  to  a  file'); 
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send  ('Selecting  this  option  will  print  a  letter  to  a  file.  You  will  provide  a  Name  for  the  file 
and  then  be  able '); 

send  ('to  FTP  the  file  to  your  location.  The  file  will  contain  ASCII  text  that  can  be 
manipulated  by  any '); 

send  ('word-processor.  <BR>'); 

send('<PxCENTERxFORM  ACTION=".  ./cgi-win/P_accep2.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxINPUT  TYPE="submit"  Value="Print  ONE  Article"x/CENTERx/FORM>'); 

send('<PxBRxA  HREF=#top">Go  back  to  the  top  of  the  page  for  more 
options</AxPxBR>'); 

{print  ALL  to  file  option} 

send  (*<A  NAME="all  to  file"xHRx/Axp>'); 

sendhdr  (*3*,  Printing  a  letter  for  EVERY  Article  to  a  file'); 

send  ('Selecting  this  option  will  print  a  letter  for  EVERY  Article  in  the  database  to  a  single 
file.  '); 

send  CEnter  the  file  Name  below.  The  file  will  contain  ASCII  text  and  can  be  retrieved  by 
FTP.  <BR>'); 

send  (The  file  extension  is  not  required  as  it  will  be  .Let  after  the  operation  is  complete. '); 

send  ('If  an  existing  file  name  is  used,  the  old  file  extension  will  be  changed  to  .old  and  the 
new '); 

send  (,filens  extension  will  be  .Let'); 

send  (*<PxFORM  ACTION="../cgi-win/P_accAll.exe"  METHOD="POST">'); 

send  ('<INPUT  TYPE="hidden"  Name="flag"  Value="  1  ">'); 

send  ('<centeTxB>File  Name:  </BxINPUT  TYPE="text"  Name="filename"  Size="25" 
Value="AIlAuths.Let"xBR>'); 

send  ('<PxINPUT  TYPE- 'submit"  Value-'Print  the  letters  to  this 
file"x/CENTERx/FORM>'); 

send  ('<PxBRxA  HREF=#top">Go  back  to  the  top  of  the  page  for  more 
options</AxPxBR>'); 

{send  Footer} 

sendhr; 

send  ('<PxBRxA  NAME="bottom"x/A>'); 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="  !">*); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send('<PxrBRxP><BRxPxBR>'); 
send  (*</BODYx/HTML>'); 
closeStdout; 
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closeApp(  application ); 
end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 

end. 
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Print  all  to  a  file:  P_AccAll.exe 

unit  Praccall; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGEnvDatal:  TCGIEnvData; 

CGLOBl:TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

Authors:  TTable; 

procedure  FormCreate( Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dFileName,  dFileNamein:  string; 
dflag:  string; 
dPaperNumber:  string; 

dbANumber,  dbTitle:  string; 

dbFName :  string; 
dbLName :  string; 
dblnitial :  string; 
dbHonorific  :  string; 
dblnstitution  :  string; 
dbDepartment :  string; 
dbMailstop :  string; 
dbAddressStreet :  string; 
dbAddressCity :  string; 
dbAddressState :  string; 
dbAddressZip :  string; 
dbCountry :  string; 
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dbPhoneJLocalNumber :  string; 
dbPhoneFaxNumber :  string; 
dbEmail :  string; 

PathFile,  OldFile:  string; 
MyFileHandle:  THandle; 
F:  TextFile; 


implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 
with  CGDEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{  Get  fields  from  search  page } 

dflag:=  getsmallfield  ('flag'); 

dPaper_Number:=  getsmallfield  CPaperNumber'); 

dFilenamein:=  getsmallfield  ('filename'); 

{HTML  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>*); 

send('<centerxH2>Asilomar  Conference  System  Administration-^/HSx/center^); 

sendhr; 


{Check  the  flag} 

if  dflag  =  T  then  begin 

{Prepare  File} 

try 
if  ExtractFileExt(dFileNamein)  =  *Let'  then  dFileName:=  dFileNamein 

else  dFileName:=  ChangeFileExt("+dFileNamein+  ",  '.Let'); 
PathFile:=  'c:\website\DownloadV  +dFileName+"; 
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if  FileExists(PathFile)  then  begin 
{rename  old  file} 

OldFile  :=  ChangeFileExt(n+PathFile+  ",  '.OLD'); 
{open  New  file} 
fileopen  (dFileName,  0); 
{send  notice} 

send(There  was  an  existing  file  named '"  +PathFile+ '"  which  was  renamed  to 
+01dFile+  *".•); 
end 
else  MyFileHandle  :=  filecreate(PathFile); 

finally 

{Prepare  File  for  Writing} 

AssignFile  (F,  PathFile); 
Append(F); 

end;  {try} 

{Prepare  Table} 

Articles.open; 
Articles,  first; 

While  not  Articles.EOF  do  begin 

{Retrieve  Data} 

dbANumber:=  Articles.fieldbyname  ('ContactAuthorNumber').asstring; 

dbTitle:=  Articles.fieldbyname  (Title1). asstring; 

{Get  Contact  Author  Data} 

With  Authors  do  begin 

{Move  to  Record} 

open; 
first; 

while  fieldbyname('ANumber').asstring  o  dbANumber  do 
next; 

dbFName  :=  fieldByNameCFName').AsString; 
dbLName  :=  fieldByNameCLName').AsString; 
dblnitial  :=  fieldByNameCInitiar).AsString; 
dbHonorific  :=  fieldByNameCHonorific').AsString; 
dblnstitution  :=  fieldByNameCInstitution^.AsString; 
dbDepartment  :=  fieldByNameCDepartment^.AsString; 
dbMailstop  :=  fieldByName('Mailstop').AsString; 
dbAddressStreet  :=  fielcffiyName(,Address_Street').AsString; 
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dbAddressCity  :=  fieldByName('Address_City').AsString; 
dbAddressState  :=  fieldByNameCAddressState^.AsString; 
dbAddressZip  :=  fieldByName('Address_Zip').AsString; 
dbCountry  :=  fieldByName('Country,).AsString; 

dbPhoneLocalNumber  :=  fielcByName(Thone_LocalNumber').AsString; 
dbPhoneFaxNumber  :=  fieldByName('Phone_FaxNumber').AsString; 
dbEmail  :=  fieldByName('Emair).AsString; 
end;  {with  Authors} 

{Print  Article  data  to  Hie} 

Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F, '  '  +webdate(now)+  "); 

Writeln(F,'  '); 
Writeln(F,'    '); 

Writeln(F, ' '  +dbHonorific+  ' '  +dbFName+  ' '  +dblnitial+  ' '  +dbLName+  '<BR>'); 
Writeln(F, ' '  +dbAddress_Street+ "); 

if  dbCountry  =  TJSA'  then  Writeln(F, "  +dbAddress_City+ ', '  +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else  Writeln(F, "  +dbAddress_City+  ', '  +dbCountry+  '<BR>'); 
Writeln(F, '    '); 
Writeln(F,'    '); 

Writeln(F,  Dear '  +dbHonorific+  ' '  +dbLName+  ','); 
Writeln(F,  *    '); 

Writeln(F,  'Thank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Annual '); 

Writeln(F,  'Asilomar  Conference  on  Signals,  Systems,  &  Computers.'); 

if  Articles.fieldbyname  ('accepted'). asstring  =  'V  then  begin  {Print  accept} 

Writeln(F,  'We  are  pleased  to  inform  you  that  your  article, '"  +dbTitle+  '"  has  been 
selected '); 

Writeln(F,  'for  the  conference.  Please  ensure  you  have  a  copy  of  the  final  article  to  give 
to  the '); 

Writeln(F,  'conference  for  publication  in  the  Proceedings. <BR>'); 

Writeln(F, '  '); 

Writeln(F,  'Thank  you  again,  we"ll  see  you  at  the  conference.'); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F,  *  *); 

Writeln(F, '  '); 
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Writeln(F, '  '); 

Writeln(F, '  Technical  Program  Chair'); 

{Fill  out  the  rest  of  the  page} 

Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,*  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,*  '); 
Writeln(F,'  '); 
Writeln(F,'   '); 

Writeln(F, ' '); 

end  {Print  accept} 

else  if  Articles,  fieldbyname  ('accepted').asstring  =  'N'  then  begin  {Print  Reject} 

Writeln(F,  'We  are  sorry  to  inform  you  that  your  article, '"  +dbTitle+  "'  was  not  selected 
for  this  year"s '); 

Writeln(F,  'conference.  <BR>'); 

Writeln(F,'   '); 

Writeln(F,  'Thank  you  again  for  your  interest.  We  hope  to  see  you  at  the  conference.'); 

Writeln(F5'   *); 

Writeln(F,'   '); 

Writeln(F,'   '); 

Writeln(F,'   '); 

Writeln(F,'    '); 

Writeln(F, '  Technical  Program  Chair'); 

{Fill  out  the  rest  of  the  page} 

Writeln(F,*  '); 

Writeln(F,'  '); 

Writeln(F,*  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 

Writeln(F,'  '); 
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Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,*  '); 
Writeln(F,'   '); 

Writeln(F, ' '); 

end  {else  Print  Reject} 

else  Begin  {send  no  accept/reject  data} 

send(There  is  no  Accept/Reject  information  on  the  article  "'  +dbTitle+  '."'); 
end;  {bad  accept/reject  data} 

Articles,  next; 
end;  {while} 

end  {If  flag} 

else  begin  {bad  flag} 

send('<centerxHl>Asilomar  Conference  on  Signals,  Systems,  & 
Computers</H  1  x/center>'); 

sendhr; 

send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  ('<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to 
login  again  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. <BR>'); 

end;  {if  dflag  else} 


sendhdr('3',The  file  has  been  generated!'); 

send(The  file  <B>*"  +dFileName+  '"</B>  is  ready  to  be  Downloaded.'); 

send('You  may  <A  HREF-'.. /download/  +dFileName+  '">Download  the  file  by  FTP 
now!</AxBR>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-wm/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 
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end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 
end. 
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Select  Article:  P_Accep2.exe 

unit  Praccep2; 

interface 

uses 
SysUtiis,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

CGEnvDatal:  TCGEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

Query  1:  TQuery; 

QuerylTitle:  TStringField; 

Query  lPaperNumber:  TIntegerField; 

procedure  FormCreate(Sender:  TObject); 

procedure  CGIDB  lSendingHotField(currentRecor±  TDataset; 
var  s:  OpenString); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.  onException:=cgiErrorHandler; 
application.  processMessages; 
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createStdout; 
sendPrologue; 

send  ('<HTMLxHEAD>*); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('<P>Click  on  the  Title  of  the  article  for  which  the  letter  should  be  created.  <BR>'); 

with  Query  1  do  begin 

prepare;      {  Optimizes  query  } 

close; 

sql.  clear; 

sql.add('Select  *  FROM  Submissi'); 

sql.add( 'Order  by  Title'); 

open; 

send('<centerxP>'); 

CGEDB 1  .drawtable;    {display  all  titles} 

send  ('</center>'); 

end;  {withQueryl} 


sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value- 'Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

procedure  TForml.CGIDBlSendingHotField(cuiTentRecord:  TDataset; 
var  s:  OpenString); 
begin 

s:-<AHREF="../cgi-win/P_Accep3.exe?'+ 
currenrrecord  fieldbyNameCPaperNumber^.AsString  +  '">' 

+  currentrecord.FieldbyNameCTitle^.AsString  +  '</A>'; 
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end; 
end. 
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Choose  screen  or  file:  P_Accep3.exe 

unit  Praccep3; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  TTable; 

CGEEnvDatal:  TCGEnvData; 

CGIDB  1:TCGIDB; 

Authors:  TTable; 

procedure  FormCreate( Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dPaperNumber:  string; 

dTitle:  string; 

implementation 

{$R  *.DFM) 

procedure  TForml. FormCreate( Sender:  TObject); 
begin 
with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
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sendPrologue; 

{Get  Title  of  Article  from  search  page  } 

dPaper_Number:=  cgiQueryStringA; 

send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 
send('<center><H2>Asilomar  Conference  on  Signals,  Systems,  & 
Computers</H2x/center>'); 
sendhr; 

{Retrieve  the  Title} 

with  Articles  do  begin 

{Prepare  the  Table} 

open; 
first; 

{Move  to  proper  record} 

While  fieldbyname(?aper_Number').asstring  o  dPaperNumber  do 
next; 

{Retrieve  data} 

dTitle:=  fieldbyname(Title').asstring; 
end;  {With  Articles} 

{Send  the  Options} 

send(The  accept/reject  letter  for  the  Article  "'  +dTitle+  '"  may  be  printed  to  the  screen  or  to  a 
file.  '); 

{Send  the  "To  the  screen  option"} 

sendhr; 

sendhdr  ('3',  Print  to  the  screen.'); 

send('<PxFORM  ACTION="../cgi-win/P_accscr.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE="hidden"  Name="Paper_Number"  Value='"  +dPaper_Number+  '">'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Print  the  Article  Accept/Reject  letter 
to  the  Screen"x/CENTERx/FORM>'); 

{Send  the  "To  a  file  option"} 

sendhr; 

sendhdr  ('3',  'Print  to  a  file.'); 

send('Please  enter  the  name  of  the  file  into  which  you  would  like  the  letter  placed. '); 

send('The  file  extension  is  not  required  as  it  will  be  .Let  after  the  operation  is  complete. '); 
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send('If  an  existing  file  name  is  used,  the  old  file  extension  will  be  changed  to  .old  and  the 
new '); 

send('file"s  extension  will  be  .Let'); 

send('<PxFORM  ACTION="../cgi-win/P_accfil.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<INPUT  TYPE="hidden"  Name="Paper_Number"  Value=m  +dPaper_Number+  "•>*); 

send('<CENTERxB>File  Name:  </BxINPUT  TYPE="text"  Name="filename"  Size="25" 
Value="Authors.Let"xBR>'); 

send('<PxINPUT  TYPE="submit"  Value="Print  the  Article  Accept/Reject  letter  to  this 
File"x/CENTERx/FORM>'); 

{Send  Footer} 

sendhr; 

send(*<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  C</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

end. 
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Print  to  screen:  P_AccScr.exe 

unit  Praccscr; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  TTable; 

CGIEnvDatal:  TCGEnvData; 

CGIDB  1:TCGEDB; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
i  integer; 

dflag:  string; 

dPaperNumber:  string; 

dbANumber,  dbTitle:  string; 

dbFName,  dbLName,  dblnitial,  dbHonorific:  string; 

dblnstitution:  string; 

dbDepartment:  string; 

dbMailstop:  string; 

dbAddressStreet:  string; 

dbAddressCity:  string; 

dbAddressState:  string; 

dbAddressZip:  string; 

dbCountry:  string; 

dbPhoneJLocalNumber.  string; 

dbPhoneFaxNumber:  string; 

dbEmail:  string; 

dDate:  string; 
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function  GetDate  (s:string)  :  string; 
implementation 
{$R  *.DFM} 

function  GetDate  (s:string) :  string; 

const 

Blanks  Allowed  =  3; 

var 
i,  blanks:integer; 
temp:  string; 

begin 

i:=  -1 ;         {variable  to  step  through  strings) 

blanks  :=  0;    {variable  to  count  the  blank  spaces  in  the  string} 

repeat 

i:=i+l; 

if  s[i]  = ' '  then  blanks  :=  blanks  +  1 ;    {increment  blank  count} 

temp[i]:=  s[i]; 

until  (blanks  =  blanksAllowed)  or  (i=12); 

GetDate  :=  temp; 


end; 


procedure  TForml.FormCreate(Sender:  TObject); 
begin 
with  CGEEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 
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send  C<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

{Get  fields  from  search  page  } 

dflag:=  getsmallfield  ('flag'); 

dPaper_Number:=  getsmallfield  (PaperNumbef); 

{Get  data  from  the  Record  in  the  Articles  Table} 

with  Articles  do  begin 

{Move  to  Record} 

open; 
first; 

while  fieldbynameC'PaperNumber').  asstring  o  dPaperNumber  do 
next; 

{Retrieve  Data} 

dbANumber:=  fieldbyname  ('ContactAuthorNumber').asstring; 
dbTitle™  fieldbyname  ('Title'). asstring; 

{Get  Contact  Author  Data} 

With  Authors  do  begin 

{Move  to  Record} 

open; 
first; 

while  fieldbyname('ANumber').  asstring  o  dbANumber  do 
next; 

dbFName  :=  fieldByNameCFName').AsString; 

dbLName  :=  fieldByName('LName').AsString; 

dblnitial  :=  fieldByName('Initiar).AsString; 

dbHonorific  :=  fieldByNameCHonorific').AsString; 

dblnstitution  :=  fieldByName('Institution').AsString; 

dbDepartment  ~  fieldByName(T)epartment').AsString; 

dbMailstop  :=  fieldByNameCMailstop^.AsString; 

dbAddressStreet  :=  fieldByName('Address_Street').AsString; 

dbAddressCity  :=  fieldByName('Address_City').AsString; 

dbAddressState  :=  fieldByName('Address_State').AsString; 

dbAddressZip  :=  fieldByNameCAddress_Zip').AsString; 

dbCountry  ~  fieldByNameCCountry').AsString; 

dbPhoneLocalNumber  :=  fieldByNameCPhone_LocalNumber').AsString; 

dbPhone_FaxNumber  :=  fieldByName(Phone_FaxNumber').AsString; 

dbEmail  :=  fieldByNameCEmair).AsString; 
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end;  {with  Authors} 

{Print  out  the  letter} 

if  fieldbyname  ('accepted'). asstring  =  'Y'  then  begin  {Print  accept} 

dDate:=  GetDate  (webdate(now)); 
send('<PxBRxP  ALIGN=right> '  +  dDate  +  " ); 

send('<P>'  +dbHonorific+  ' '  +dbFName+  ' '  +dblnitial+  ' '  +dbLName+  '<BR>'); 
send("  +dbAddress_Street+  *<BR>'); 

if  dbCountry  =  'USA'  then  send(n  +dbAddress_City+  !, '  +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else  send("  +dbAddress_City+  ', '  +dbCountry+  '<BR>'); 

send('<P>Dear '  +dbHonorific+  '  *  +dbLName+  '  <BR>'); 

send('Thank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Annual '); 

send('Asilomar  Conference  on  Signals,  Systems,  &  Computers.'); 

send('<P>We  are  pleased  to  inform  you  that  your  article, '"  +dbTitle+  '"  has  been 
selected '); 

send('for  the  conference.  Please  ensure  you  have  a  copy  of  the  final  article  to  give  to  the 

'); 

send('conference  for  publication  in  the  Proceedings. <BR>'); 

send('<P>Thank  you  again,  we"ll  see  you  at  the  conference.'); 

send('<PxBRxPxBRxcenter>Technical  Program  Chair</center>'); 
end  {Print  accept} 

else  if  fieldbyname  ('accepted'). asstring  =  "N1  then  begin  {Print  Reject} 

dDate:=  GetDate  (webdate(now)); 
send('<PxBRxP  ALIGN=right> '  +  dDate  +  " ); 

send('<P>'  +dbHonorific+  ' '  +dbFName+  ' '  +dblnitial+  ' '  +dbLName+  '<BR>'); 
send("  +dbAddress_Street+  '<BR>'); 

if  dbCountry  =  'USA'  then  send("  +dbAddress_City+  ', '  +dbAddress_State+  ' ' 
+dbAddress_Zip+ ") 

else  send("  +dbAddress_City+  ', '  +dbCountry+  '<BR>'); 

send('<P>Dear '  +dbHonorific+  ' '  +dbLName+  '  <BR>'); 

send(Thank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Annual '); 

send('Asilomar  Conference  on  Signals,  Systems,  &  Computers.'); 
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send('<P>We  are  sorry  to  inform  you  that  your  article, '"  +dbTitleH-  "'  was  not  selected 
for  this  year"s '); 

sendCconference^BR^); 

send('<P>Thank  you  again  for  your  interest.  We  hope  to  see  you  at  the  conference.'); 

send('<PxBRxPxBRxcenter>Technical  Program  Chair</center>'); 
end  {else  Print  Reject} 

else  Begin  {send  no  accept/reject  data} 

{HTML  Header} 

send('<centerxH2>Asilomar  Conference  System  Admimstration</H2x/center>'); 
sendhr; 

sendhdr('2',  'There  is  no  Accept/Reject  information  on  this  article'); 
send('<PxFORM  ACTION="../cgi-win/P_Accep2.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="r>'); 
send('<PxCENTERxINPUT  TYPE="submit"  Value="Print  a  letter  for  another 
article"x/CENTERx/FORM>'); 

{ HTML  Footer} 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">*); 

send('<PxCENTERxINPUT  TYPE- 'submit"  Value="Retum  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
end;  {bad  accept/reject  data} 


end;  {with  Articles} 


send  ('</BODYx/HTML>'); 

closeStdout; 

closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 

end. 
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Print  to  file:  P_AccFil*exe 

unit  Praccfil; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  Cgi,  DBTables,  DB; 

type 
TForml  =  class(TForm) 

DataSourcel:  TDataSource; 

Articles:  TTable; 

CGEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

Authors:  TTable; 

procedure  FormCreate( Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

dPath:  string; 
dFileName:  string; 
dflag:  string; 
dPaperNumber:  string; 

dbANumber,  dbTitle:  string; 

dbFName :  string; 
dbLName  :  string; 
dblnitial :  string; 
dbHonorific :  string; 
dblnstitution :  string; 
dbDepartment :  string; 
dbMailstop :  string; 
dbAddressStreet :  string; 
dbAddressCity :  string; 
dbAddressState  :  string; 
dbAddressZip :  string; 
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dbCountry :  string; 
dbPhone  LocalNumber :  string; 
dbPhoneFaxNumber :  string; 
dbEmail :  string; 

PathFile,  dFileNamein,  OldFile:  string; 
MyFileHandle:  THandle; 
F:  TextFile; 


implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
begin 
with  CGEEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{  Get  fields  from  search  page } 

dflag:=  getsmallfield  ('flag'); 
dFilenamein:=  getsmallfield  ('filename'); 

{HTML  Header} 

send  ('<HTMLxHEAD>'); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 

send  ('</HEADxBODY  bgcolor=FFFFFF>'); 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 

sendhr; 


{Check  the  flag} 

if  dflag  =  T  then  begin 

{Prepare  File} 

try 
if  ExtractFileExt(dFiieNamein)  =  "Let'  then  dFileName:=  dFileNamein 

else  dFileName:=  ChangeFileExt("+dFileNamein+  ",  '.Let'); 
PathFile:=  'c:\website\DownloadV  +dFileName+"; 
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if  FileExists(PathFile)  then  begin 
{rename  old  file) 

OldFile  :=  ChangeFileExt("+PathFile+  ",  '.OLD'); 
{open  New  file} 
fileopen  (dFileName,  0); 
{send  notice} 

send('There  was  an  existing  file  named  "*  +PathFile+  '"  which  was  renamed  to 
+01dFile+  *".'); 
end 
else  MyFileHandle  :=  filecreate(PathFile); 

finally 

{Prepare  File  for  writing} 

AssignFile  (F,  PathFile); 
Append(F); 

end;  {try} 

{Print  every  Article} 

with  Articles  do  begin 

{Prepare  Table} 

open; 
first; 

{Move  to  Record} 

while  fieldbyname(Taper_Number').asstring  o  dPaperNumber  do 
next; 

{Retrieve  Data} 

dbANumber:=  fieldbyname  ('ContactAuthorNumber').asstring; 
dbTitle:=  fieldbyname  ('Title'). asstring; 
end;  {with  Articles} 

{Get  Contact  Author  Data} 

With  Authors  do  begin 

{Move  to  Record} 

open; 
first; 

while  fieldbyname('ANumber').asstring  o  dbANumber  do 
next; 

dbFName  :=  fieldByNameCFName').AsString; 
dbLName  :=  fieldByNameCLName').AsString; 
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dblnitial  —  fieldByName('Imtiar).AsString; 

dbHonorific  :=  fieldByName('Honorific').AsString; 

dblnstitution  :=  fieldByNameCInstitution^.AsString; 

dbDepartment  :=  fieldByName(Department').AsString; 

dbMailstop  :=  fieldByName('Mailstop').AsString; 

dbAddressStreet  ~  fieldByNameCAddressStreet^.AsString; 

dbAddressCity  :=  fieldByName('Address_City').AsString; 

dbAddress_State  :=  fieldByName('Address_State').AsString; 

dbAddressZip  :=  fieldByName('Address_Zip').AsString; 

dbCountry  :=  fieldByName('Country').AsString; 

dbPheneJLocalNumber  ~  fieldByName(Phone_LocalNumber').AsString; 

dbPhoneFaxNumber  :=  fieldByName(Phone_FaxNumber').AsString; 

dbEmail  :=  fieldByNameCEmair).AsString; 

end;  {with  Authors} 

{Print  Article  data  to  file} 

Writeln(F,'  '); 
Writeln(F,  *  '); 
Writeln(F,'  '); 
Writeln(F, '  '  +webdate(now)+  "); 

Writeln(F, '  '); 
Writeln(F,'    '); 

Writeln(F, ' '  +dbHonorific+  *  *  +dbFName+  ' '  +dblnitial+  * '  +dbLName+  '<BR>'); 
Writeln(F, ' '  +dbAddress_Street+  "); 

if  dbCountry  =  USA  then  Writeln(F, "  +dbAddress_City+ ', '  +dbAddress_State+ ' ' 
+dbAddress_Zip+ ") 

else  Writeln(F, "  +dbAddress_City+ ', '  +dbCountry+  '<BR>'); 
Writeln(F, '    '); 
Writeln(F,'    '); 

Writeln(F,  *Dear '  +dbHonorific+  ' '  +dbLName+  ','); 
Writeln(F,'    '); 

Writeln(F,  'Thank  you  for  your  interest  in  submitting  a  Paper  for  presentation  at  the  Thirtieth 
Annual '); 

Writeln(F,  'Asilomar  Conference  on  Signals,  Systems,  &  Computers.'); 

if  Articles,  fieldbyname  ('accepted'),  asstring  =  'Y  then  begin  (Print  accept} 

Writeln(F,  'We  are  pleased  to  inform  you  that  your  article, '"  +dbTitle+  '"  has  been 
selected '); 

Writeln(F,  'for  the  conference.  Please  ensure  you  have  a  copy  of  the  final  article  to  give 
to  the '); 

Writeln(F,  'conference  for  publication  in  the  Proceedings.<BR>'); 

Writeln(F, '  '); 
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Writeln(F,  Thank  you  again,  we"ll  see  you  at  the  conference.'); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F,  *  '); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F, '  '); 

Writeln(F, '  Technical  Program  Chair'); 


(Fill  out  the  rest  of  the  page) 


Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F,  * 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F,  * 

'); 

Writeln(F, ' 

'); 

Writeln(F, ' 

end  {Print  accept} 

'); 


else  if  Articles. fieldbyname  ('accepted'). asstring  =  TST  then  begin  (Print  Reject] 


Writeln(F,  'We  are  sorry  to  inform  you  that  your  article, '"  +dbTitle+  '"  was  not  selected 
for  this  year"s '); 

Writeln(F,  'conference.  <BR>'); 

Writeln(F,'    '); 

Writeln(F,  'Thank  you  again  for  your  interest.  We  hope  to  see  you  at  the  conference.'); 

Writeln(F,'   '); 

Writeln(F,'   ') 

Writeln(F,'   ') 

Writeln(F,'   ') 

Writeln(F,'   ') 

Writeln(F, '  Technical  Program  Chair'); 


{Fill  out  the  rest  of  the  page} 

Writeln(F,'  '); 
Writeln(F,'  ') 
Writeln(F,'   ') 
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Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,'  '); 
Writeln(F,*  '); 
Writeln(F,'   '); 

Writeln(F, ' '); 

end  {else  Print  Reject} 

else  Begin  {send  no  accept/reject  data} 

send('There  is  no  Accept/Reject  information  on  the  article  "'  +dbTitle+  '.'"); 
end;  {bad  accept/reject  data} 

end  {If  flag} 

else  begin  {bad  flag} 

send('<centerxH2>Your  password  was  <strong>not  accepted!  !</strongx/H2x/center>'); 

send  ('<P>Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  (*<P>If  you  made  an  error,  then  please  <A  HREF="../prototype/admin20.htm">try  to 
login  again  </A>'); 

send  ('<P>If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions.<BR>'); 

end;  {if  dflag  else} 


sendhdr('3','The  file  has  been  generated!'); 

send('The  file  <B>"'  +dFileName+  '"</B>  is  ready  to  be  Downloaded.'); 

send('You  may  <A  HREF=". /download/  +dFileName+  '">Download  the  file  by  FTP 
now!</AxBR>'); 

sendhr; 

send('<PxFORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">*); 

send(*<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<PxCENTERxINPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 

send  ('</BODYx/HTMI>'); 

closeStdout; 

closeApp(  application ); 
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end;  {with  cgiEnvDatal  do} 
end;     {FormCreate} 

end. 
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Print  Initiation:  P_AbsCat.exe 

unit  Prabscat; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB1:TCG1DB; 

DataSourcel:  TDataSource; 

Articles:  TTable; 

Authors:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do  begin 

webSiteINIFilename:=paramstr(  1 ); 

application.onException:=cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

send  ('<HTMLxHEAD>'); 
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SendTitle('Asilomar  Signals,  Systems,  and  Computers'); 
send  ('</HEADxBODY  bgcolor=FFFFFF>'); 


end; 


with  cgiEnvDatal  do  begin 

send('<centerxH2>Asilomar  Conference  System  Administration</H2x/center>'); 
sendhr; 

send('<P>This  function  Prints  the  Abstract  Catalog,  organized  by  sessions  to  the  file  named 
below.'); 

sendCChanges  to  File  Name  can  be  made  below.  If  the  file  does  not  exist,  it  will  be 
created.'); 

send('<P>Running  this  routine  may  take  a  long  time.<BR>'); 

send('<centerxFORM  ACTION="../cgi-win/P_absca2.exe"  METHOD^'POST'V); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send('<B>File  Name:  </BxINPUT  TYPE="text"  Name=" filename" 
Value-' Abstract.Cat"xBR>'); 

send('<PxCENTERxlNPUT  TYPE="submit"  Value="Print  the  Abstract  Catalog 
now"x/CENTERx/FORMxBR>'); 

sendhr; 

send('<FORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 
send('<INPUT  TYPE="hidden"  Name="flag',  Value="l">'); 

send('<PxCENTER><INPUT  TYPE="submit"  Value="Return  to  the  System  Admin 
Options  page"x/CENTERx/FORM>'); 
send  ('</BODYx/HTML>'); 
closeStdout; 
closeApp(  application ); 

end;  {with  cgiEnvDatal  do} 

end;     {FormCreate} 

end. 
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Print  Confirmation:  Prabsca3.exe 

unit  Prabsca3; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 
DataSourcel:  TDataSource; 
Articles:  TTable; 
CGIEnvDatal:  TCGEnvData; 
CGIDB1:TCGIDB; 
Authors:  TTable; 
AuthorsANumber:  TIntegerField; 
AuthorsLName:  TStringField; 
AuthorsFName:  TStringField; 
Authorslnitial:  TStringField; 
AuthorsHonorific:  TStringField; 
Authorslnstitution:  TStringField; 
AuthorsDepartment:  TStringField; 
AuthorsMailstop:  TStringField; 
AuthorsAddressStreet:  TStringField; 
AuthorsAddressCity:  TStringField; 
AuthorsAddressState:  TStringField; 
AuthorsAddressZip:  TStringField; 
AuthorsCountry:  TStringField; 
AuthorsPhoneLocalNumber:  TStringField; 
AuthorsPhoneFaxNumber:  TStringField; 
AuthorsEmail:  TStringField; 
Query  1:  TQuery; 

ArticlesPaperNumber:  TIntegerField; 
ArticlesTitle:  TStringField; 
Articleslnvited:  TStringField; 
ArticlesAccepted:  TStringField; 
ArticlesContactAuthorNumber:  TIntegerField; 
ArticlesSession:  TStringField; 
ArticlesOrderlnSession:  TIntegerField; 
ArticlesPresentationTime:  TStringField; 
ArticlesKeywordl:  TStringField; 
ArticlesKeyword2:  TStringField; 
ArticlesKeyword3:  TStringField; 
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ArticlesAbstract:  TMemoField; 
ArticlesContactOrder:  TStringField; 
ArticlesFName2:  TStringField; 
ArticlesLName2:  TStringField; 
Articleslnitial2:  TStringField; 
ArticlesInstitution2:  TStringField; 
ArticlesOrder2:  TStringField; 
ArticlesFName3:  TStringField; 
ArticlesLName3:  TStringField; 
ArticlesInitiaD:  TStringField; 
ArticlesInstitution3:  TStringField; 
ArticlesOrder3:  TStringField; 
ArticlesFName4:  TStringField; 
ArticlesLName4:  TStringField; 
Articleslnitial4:  TStringField; 
ArticlesInstitution4:  TStringField; 
ArticlesOrder4:  TStringField; 
ArticlesFName5:  TStringField; 
ArticlesLName5:  TStringField; 
Articleslnitial5:  TStringField; 
ArticlesInstitution5:  TStringField; 
ArticlesOrder5:  TStringField; 
ArticlesFName6:  TStringField; 
ArticlesLName6:  TStringField; 
Articleslnitial6:  TStringField; 
ArticlesInstitution6:  TStringField; 
ArticlesOrder6:  TStringField; 
Query  lPaper_Number:  TIntegerField; 
Query  1  Title:  TStringField; 
Query  1  Invited:  TStringField; 
Query  1  Accepted:  TStringField; 
Query  1  ContactAuthorNumber:  TIntegerField; 
Query  1  Session:  TStringField; 
Query  1  OrderlnSession:  TIntegerField; 
Query lPresentationTime:  TStringField; 
Query  1  Keyword  1:  TStringField; 
Query  lKeyword2:  TStringField; 
Query  lKeyword3:  TStringField; 
Query  1  Abstract:  TMemoField; 
Query  IContactOrder:  TStringField; 
Query  lFName2:  TStringField; 
Query  lLName2:  TStringField; 
Query  Hnitial2:  TStringField; 
Query  lInstitution2:  TStringField; 
Query  1  Order2 :  TStringField; 
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Query  lFName3:  TStringField; 

Query lLName3:  TStringField; 

Query  UnitiaB:  TStringField; 

Query  1  Institution3 :  TStringField; 

Query  10rder3:  TStringField; 

QuerylFName4:  TStringField; 

Query  lLName4:  TStringField; 

Query  llnitial4:  TStringField; 

Query  1  Institution4 :  TStringField; 

Query  10rder4:  TStringField; 

Query  lFName5:  TStringField; 

Query  lLName5:  TStringField; 

Query  llnitial5:  TStringField; 

Query  1  Institution5:  TStringField; 

Query  10rder5:  TStringField; 

Query  lFName6:  TStringField; 

Query  !LName6:  TStringField; 

Query  Hnitial6:  TStringField; 

Query  lInstitution6:  TStringField; 

Query  10rder6:  TStringField; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

MyFileHandle:  THandle; 
F:  Textfile; 

theabstract :  TStringList; 
theAuthors :  TStringList; 

i:  integer; 

dbContactOrderlnt:  integer; 
dbOrder2int:  integer; 
dbOrder3int:  integer; 
dbOrder4int:  integer; 
dbOrder5int:  integer; 
dbOrder6int:  integer; 
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dFileName,  dFileNamein,  dflag:  string; 
PathFile,  OldFile:  string; 

dbPaperNumber:  string; 
dbtitle:  string; 
dbinvited:  string; 
dbaccepted:  string; 
dbANumber:  string; 
dbSession:  string; 
dbSessOrder:  string; 
dbkeywordl:  string; 
dbkeyword2:  string; 
dbkeyword3:  string; 
dbabstract:  string; 
dbcontactOrder:  string; 

dbfhame2:  string; 
dblname2:  string; 
dbinitial2:  string; 
dbinstitution2:  string; 
dborder2:  string; 

dbfhame3:  string; 
dblname3:  string; 
dbinitiaB:  string; 
dbinstitution3:  string; 
dborder3:  string; 

dbfhame4:  string; 
dblname4:  string; 
dbinitial4:  string; 
dbinstitution4:  string; 
dborder4:  string; 

dbfname5:  string; 
dblname5:  string; 
dbinitial5:  string; 
dbinstitution5:  string; 
dborder5:  string; 

dbfname6:  string; 
dblname6:  string; 
dbinitial6:  string; 
dbinstitution6:  string; 
dborder6:  string; 
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dbFName :  string; 
dbLName :  string; 
dblnitial:  string; 
dbHonorific  :  string; 
dblnstitution :  string; 


implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate( Sender:  TObject); 
begin 

with  CGEnvDatal  do 
begin 

webSiteINIFilename:=paramstr(  1 ); 
application.onException:=cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{  Send  the  html  page    } 

send  (*<HEAD>*); 

SendTitle('Asilomar  Signals,  Systems,  and  Computers  System  Admin:  Print  an  Article'); 

send  ('</HEAD>'); 

send('<center> 

Asilomar  Conference  System  Administration 

</center>'); 
sendhr; 


{  Get  the  FORM  Data} 

dflag:=  getsmallfield  ('flag'); 
dFileNamein:=  getsmallfield  ('filename'); 


if  dflag  =  T  then  begin 


try 
if  ExtractFileExt(dFileNamein)  =  '.Cat'  then  dFileName:=  dFileNamein 
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else  dFileName-  ChangeFileExt("+dFileNamein+  ",  '.Cat'); 
PathFile:=  'c:\website\DownIoadV  +dFileName+"; 
if  FileExists(PathFile)  then  begin 

{rename  old  file) 

OldFile  :=  ChangeFileExt("+PathFile+ ",  '.OLD'); 

renamefile(PathFile,  OldFile); 

{send  notice} 

send(There  was  an  existing  file  named "'  +PathFile+  "'  which  was  renamed  to 
+01dFiIe+  "'.'); 
end; 
MyFileHandle  :=  filecreate(PathFile); 

finally 

{Prepare  File  for  Writing} 

AssignFile  (F,  PathFile); 
Append(F); 

end;  {try} 


With  Query  1  do  begin 
{prepare;} 
close; 
sql.clear; 

sql.add(*Select  *  FROM  Submissi  WHERE  Accepted  =  "Y"  Order  by  Session, 
OrderlnSession'); 
open; 

first; 
While  not  Query  1. EOF  do  begin 


{ Retrieve  record } 

dbPaper_Number:=  fieldByName  ('Paper_Number').asstring; 
dbtitle:=  fieldByName  ('title'). asstring; 
{dbinvited:=  fieldByName  ('invited'). asstring;} 
dbaccepted:=  fieldByName  ('Accepted'). asstring; 
dbANumber:=  fieldByName  ('ContactAuthorNumber').asstring; 
dbSession:=  fieldByName  ('Session').asstring; 
dbSessOrder:=fieldbyname  COrderlnSession').  asstring; 
dbkeywordl"  fieldByName  ('keyword l').asstring; 
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dbkeyword2:=  fleldByName  ('keyword2').asstring; 
dbkeyword3:=  fieldByName  ('keyword3').asstring; 

CGIDBl.memoToStringList  (fieldbyname  ('Abstract'),  theabstract); 

dbcontactOrder:=  fieldByName  ('contactOrder').asstring; 

dborder2:=  fieldByName  ('order2').asstring; 
dbfhame2:=  fieldByName  ('fname2').asstring; 
dbinitial2:=  fieldByName  ('initial2').asstring; 
dblname2:=  fieldByName  ('lname2').asstring; 
{dbinstitution2:=  fieldByName  ('institution2').asstring;} 

dborder3:=  fieldByName  ('order3').asstring; 
dbfhame3:=  fieldByName  ('fhame3').asstring; 
dbinitial3:=  fieldByName  ('imtial3,).asstring; 
dblname3:=  fieldByName  ('lname3').asstring; 
{dbinstitution3:=  fieldByName  ('institution3').asstring;} 

dborder4:=  fieldByName  ('order4').asstring; 
dbfhame4:=  fieldByName  ('fname4').asstring; 
dbinitial4:=  fieldByName  ('imtial4').asstring; 
dblname4:=  fieldByName  ('lname4').asstring; 
{dbinstitution4:=  fieldByName  ('institution4').asstring;} 

dborder5:=  fieldByName  ('order5').asstring; 
dbfhame5:=  fieldByName  ('ftiame5').asstring; 
dbinitial5:=  fieldByName  ('initial5').asstring; 
dblname5:=  fieldByName  ('lname5').asstring; 
{dbinstitution5:=  fieldByName  ('institutions'). asstring;} 

dborder6:=  fieldByName  ('order6').asstring; 
dbfhame6:=  fieldByName  ('fhame6').asstring; 
dbinitial6:=  fieldByName  ('initial6').asstring; 
dblname6:=  fieldByName  ('lname6').asstring; 
{dbinstitution6:=  fieldByName  ('institution^), asstring;} 

{  Get  Author  Name  information  from  the  AUTHOR  Table } 

with  Authors  do  begin 

{  Move  to  proper  record} 

open; 

first; 

while  fieldbyName('ANumber').asstring  o  dbANumber  do 
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next; 

{ Retrieve  Author  Name  information  } 

dbFName  :=  fieldByName('FName').AsString; 

dbLName  :=  fieldByName('LName').AsString; 

dblnitial  :=  fieldByNameCInitial').AsString; 

dbHonorific  :=  fieldByName('Honorific').AsString; 

dblnstitution  :=  fieldByNameOInstitutiori).AsString; 

close; 

end;  {with  Authors} 


{Print  Article  data  to  file} 

Writeln(F, '     '); 

Writeln(F,  *     '); 

Writeln(F,'  '+dbtitle+*   '); 

Writeln(F, '     *); 

Writeln(F, '     '); 

Writeln(F, '     '); 

Writeln(F, '     '); 

Writeln(F, '     '); 

Writeln(F, '     '); 

Writeln(F,  Registration  Number: '  +dbPaper_Number+ "); 

Writeln(F, '     '); 

Writeln(F,  "Keyword  #1:  *  +dbkeywordl+ "); 

Writeln(F, '     *); 

if  dbKeyword2  o  Tsfone'  then  Writeln(F,  keyword  #2: '  +dbkeyword2+  "); 

Writeln(F, '     '); 

if  dbKeyword3  o  *None'  then  Writeln(F,  'Keyword  #3: '  +dbkeyword3+ "); 

Writeln(F,  *     '); 

Writeln(F, '     '); 


{Determine  Order  of  Authors  } 

theAuthors:=  TStringList.create; 

{Send  the  Authors} 

Writeln(F,  'Authors:'); 
Writeln(F,*   '); 

if  dbContactOrder  = "  then  Writeln  (F, "  +dbFName+  ' '  +dblnitial+  ' '  +dbLName+  ', ' 
+dbInstitution+ ") 
e.-ae  begin 

{initialize  the  stringlist} 
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for  i:=  0  to  6  do 
the  Authors.  add(This  string  is  not  used'); 

dbContactOrderInt:=strtoint(dbContactOrder); 

theAuthors[dbContactOrderint]:=  "+dbFName+  ' '  +dblnitial+  ' '  +dbLName+  ', ' 
+dbInstitution+ "; 

if  dbOrder2  o "  then  begin 
dbOrder2Int:=  strtoint(dbOrder2); 

theAuthors[dbOrder2Int]:=  "+dbFName2+ '  *  +dblnitial2+  '  *  +dbLName2+ "; 
end; 

if  dbOrder3  o "  then  begin 
dbOrder3Int:=  strtoint(dbOrder3); 

theAuthors[dbOrder3Int]:=  "+dbFName3+  ' '  +dblnitial3+  ' '  +dbLName3+ "; 
end; 

if  dbOrder4  o "  then  begin 
dbOrder4Int:=  strtoint(dbOrder4); 

theAuthors[dbOrder4Int]:=  "+dbFName4+  ' '  +dblnitial4+ ' '  +dbLName4+ "; 
end; 

if  dbOrder5  o "  then  begin 
db0rder5Int:=  strtoint(dbOrder5); 

theAuthors[dbOrder5Int]:=  "+dbFName5+ ' '  +dblnitial5+  ' '  +dbLName5+  "; 
end; 

if  db0rder6  o "  then  begin 
db0rder6Int:=  strtoint(dbOrder6); 

theAuthors[dbOrder6Int]:=  "+dbFName6+ ' '  +dblnitial6+  ' '  +dbLName6+  "; 
end; 


'); 


for  i:=  1  to  6  do 
if  theAuthors[i]  o  This  string  is  not  usecT  then  Writeln(F, "  +theAuthors[i]+  ' 


end;  {else} 


{Send  the  Abstract} 

Writeln(F,  *     *); 
Writeln(F,  •     *); 
Writeln(F,  'Abstract: '); 
Writeln(F, '  '); 

for  i  :=  0  to  theabstract.  count  -  1  do 
Write(F, "  +theabstract[i]+ "); 
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theabstract.free;  {release  the  memory  held  by  'theabstract'} 


{Fill  out  the  rest  of  the  page} 

Writeln(F, ' 

'); 

Writeln(F, ' 

'); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

1  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

*  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

*  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

*  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  *); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

'  '); 

Writeln(F, 

* 

next; 

end;  {while  query! 

} 

close; 

end;  {with  queryl 

} 

closeFile(F); 

end  {If  flag} 

else  begin  {bad  f 

lag} 

send('<center> 

*); 
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Asilomar  Conference  on  Signals,  Systems,  &  Computers 

</center>'); 
sendhr; 
send('<center> 

Your  password  was  <strong>not  accepted!  !</strong> 

</center>'); 

send  (' 
Please  ensure  that  you  are  authorized  to  access  this  information.'); 

send  (' 
If  you  made  an  error,  then  please  try  to  login  again.'); 

send  (' 
If  you  are  not  authorized  to  access  this  information,  please  note  that  a  log  is'); 

send  ('maintained  that  includes  your  URL.  You  may  be  subject  to  civil  and/or  criminal '); 

send  ('prosecution  for  your  actions. 

'); 

end;  {if  dflag  else} 


sendhdr('37The  file  has  been  generated!'); 

send('The  file  "'  +dFileName+  '"  is  ready  to  be  Downloaded.'); 
send('You  may  Download  the  file  by  FTP  now! 

'); 

sendhr; 

send(' 
<FORM  ACTION="../cgi-win/Adminpwd.exe"  METHOD="POST">'); 

send('<INPUT  TYPE="hidden"  Name="flag"  Value="l">'); 

send(' 
<CENTERxINPUT  TYPE="submit"  Value- 'Return  to  the  System  Admin  Options 
page"x/CENTERx/FORM>'); 

send  ('</BODY>'); 

closeStdout; 

closeApp(  application  );  {  don't  leave  form  around  } 

end;     {with  CGIEnvDatal } 
end;    {with  FormCreate} 
end. 
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